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? 
BASSERROR 165 Sep-1984 00:23:13  VAX=11 Bliss-32 vs. 
Jengenntone fi iserse | PARSAT Obiese32, 460° 
MODULE BASSERROR ( , 
IDENT = "1-074" | Fite: BASERROR BSS Ente? MDL107%6 


BEGIN 


[eeeeeerrrereerereereererererereereterererereteeeereeeeeeeereneneeeeerereeeee 
! 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


HIS SOFTWARE IS FURNISHED useee A LICENSE AND MAY Eh END COPIED 
OMY IN IN ACCORDANCE WITH THE TERMS OF SUCH ot 35 A AND a A 
] 
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USION OF THE ABOVE COPYRIGHT NOTICE. THIS $ OTHER 
; ES THEREOF = NOT BE PROVIDED OR OTHE Rui se OMADE AVAILABLE TO ANY 
:: tance” | TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'ee 
: FACILITY: VAX=11 BASIC Error Handling 
i ABSTRACT: 


This module contains the VAX-11 BASIC error handling logic. 
The error data base is OWN to this module. 


‘ 

! 

' 

1 

' 

' 

: 

: ENVIRONMENT: VAX-11 user mode 
AUTHOR: John Sauter, CREATION DATE: 17-Oct-78 
MODIFIED BY: 

: 1-001 = Original. J8S 27-NOV-78 
' 
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NOME WN 0 OOO UE WN OO 


1-002 - monsye BASSSS1GNAL_10 10 at, BAssssTOr. 10. They now live in 
} own module. 
! 1-003 - ace global Sef initions of BAS$_abcanoxyz Pig MTR ne 11-DEC-78 
! 1-004 - include severity in those definitions. 

1-005 - v en ne compiled code does not do any error proces ng 
: x ontinue, restart the line or exit. JBS a §c-78 
i 1-006 - cit” BASSSCB_CLEANUP to flush active 1/0 wiwn’ unw nding. 


: J st tae 

: 1-007 - Change BASSSCB_CLEANUP to OTSSCLEANUP 10. JBS 09-JAN-1979 
' 8 - pen re tart ing an 1/0 statement, do an UNWIND 638 the 

; beginnin he 1/0 shenenent. JBS 26-JAN-19 

! 1-009 = Remove OT SCLEANUP. 10, since we will do 170" cleanup using 


pe Set et teed et Re te Se HE ne rg ee eee eS eee 
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@ stack frame. JBS 26-JAN-1979 
1-010 = When searching for a Line number corresponding to a 3% 
Look in the right place in the table. JBS 30-JAN-1979 


| 
| 


; 61 1-011 = When getting storage for the SIGNAL argument List, get enough 

6 for the argument count and the two trailing longwords, even 

6 snouge this 4 sometimes be a Little more than is needed. 

64 JBS 31-JAN-19 
65 1-012 = Purge the tore togt output buffer before printing an error 
$8 message. JBS O02-FEB-1979 
6 1-013 = Add support for 1/0 Lists ee change the name of the prefix 
68 for stack frames from BAS$ to BSF$. JBS 08-FEB-1979 

9 1-014 = Because control C puts some non-BASIC frames on the stack, 

0 be cleverer about searching through stack frames for a 

71 non-GOSUB frame. 8S O-FEB-19 

7 1-015 = Im BASSSSIGNAL, don't force she severity to SEVERE ERROR 

7 by calling LIBSSTOP. JBS 20-FEB-1979 

74 1-016 = Search the PC table from back to front so that the Line numbers 
75 from statements which generate 98 code, such as DATA statements, 
7 will not sopeer JBS 22-FEB-197 

7 1-017 = Use OTSSSPUR_70_ERR to purge 1/0 buffers, thus avoiding having 
78 to REQUIRE all of the 1/0 data structures. JBS 07-MAR-1979 
79 1-018 = Concatenate a ?, % or space on the front of error messages 

0 in BASSERT based on the severity of the error. JBS 12-MAR-1979 
1 1-019 = In BASSERT, don't clobber the length field of a dynamic 
Hy string. JBS 22-MAR-1979 

1-020 = Change name of ILLEGAL RESUME. JBS 02-APR-1979 


1-021 = Make BASSSCOND VAL global, so BASS$SIGNAL_I0 can use it. 
JBS 06-APR-1979 

1-022 = Only restart statements after restartable 1/0 failures if 
the 1/0 was to a terminal. JBS 06-APR-1979 

1-023 = RESUME with ne Line number will resume into another module. 
JBS 12-APR-1979 

17988 = The compiled code 7 et S5S_SUSRNG, JBS 15-APR-1979 


1-025 = Correct an error in e JBS 16-APR-1979 

1-026 - Correct an error in yrs radiog from a RESUME with no 
Line number. JBS 30-APR-1979 

1-027 - If the Line number is not found, take the Line number 
corresponding to the next earlier PC. This is needed 
because (contrary to the specification) the compiler 
does not pyt its Toke Line numbers’’ in the Line number 
table. JBS 979 

1-028 - If we are restarting an 1/0 statement, cal BASSSAE START 10 
to reinitialize the 1/0 data base. JBS 07-MAY-1979 

1-029 - If we are doing system handling - an info message, don't 

romote it to a warning. JBS 1 -197 

1-030 - If we convert a system message to a BASIC message. be sure 
the PC and PSL of the failure are reported. JBS 11-MAY-1979 

1-031 = Publish the +3 gre PSL for any converted message. 
JBS 13-MAY-197 


1-032 - Include certain string error codes in the List of pessages 
which are converted to BAS} Gagoec tiie errore 38s 16-RMAY-1979 
1-033 - Convert LIB$S and OTS$S to STR$. JBS 21-MAY-197 
4 - Correct an error in BASSSUSER_HAND which prevented intercepting 
an error they had once been Ehrough ON ERROR GO BACK. 
JBS 29-MAY-1979 
1-033 = Add BASSSERR_INIT. JBS 04-JUN-1979 
6 - Call BASSSUNDIND when cutting back a frame. JBS 06-JUN-1979 
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iegeectoue Q0aENE MSH SLSR at TAs, Pate 
1-037 - eat Feed to the top level handler. 
1-038 - nies, 072u INIT 1 eyst clear SYSTEM_ERROR and GONE_BACK. 
1-039 = RES me toe a Une 195 ner r must accumulate the number of frames 


to 
1- than ym o STR copy, JBS 16-JUL-1979 
1=be) ° unich h coused GONE BACK to remain set after an UNWIND. 


1 § = When unw rhe o.3.tc -135, 24-JUL-1979 

1 = Change call Ors STERM mio Pt * ee 

-044 d a don't allow RESUME into another module. 

1-045 = Give error 31 Citlogat byte count for 1/0) in res one fe 


an attempt to 1/0 to a closed file. JBS 01-AUG-1 
1-046 = Don't sey to ies n ar ygent fst for LIBSSIGNAL longer 
than 25 JBS “A 6-1979. 


1-047 - forrest t n edit 044. JBS Ra G-1979 
1-048 = Call GAsSsUR 10 ERR, -t *20°A0G=1979 
1 Translate MTHS -FCOOVEMAT nto tloating overflow, sinc 
is produced by both t P and T unctions. JBS “$o-Auc-1979 
NbLER to Bas SHANDLER for the sharable Library. 
JBS 20-AUG-19 


1-051 = Move the definitions of the error code A BASSA GDEF, for 

the sake of the shared iaorery. JBS UG-197 

1-052 = Remove the redundent RETURN sta geent, ne VBL Iss compiler no 
longer needs it. JBS 06-SEP-1979 

1-053 = Add BASSPUSH_ERR —< BASsPOP ERR. JBS 10-SEP-1979 

Change IOL from 170 List to Immediate On-Line. JBS 10-SEP-1979 
1-055 - If a SASIC condition is $ polled as INFO, don't promote 


it to a more severe condition. This is needed for the 
sue hae 3 of of ntrol C siait for the RUN command. 
- + i Chan a. eM NCOSSIG to MTHS Sos IGLOSnar. JBS 19-SEP-1979 
1-05 Add CTRTOOL on JBS 31- 
1-058 - wane EAR “ER 995° SN ERNe Bor, their values after RESUME. 


1-059 = Fix restarting gn 1/0 statement to clear the error flag. 
Jas 


1-060 - Make sure phot a user orcer handler doesn‘ f gry to to handle 
INFO conditions. This is a part of edit 5 Fes y-1979 
1-061 = Handle correctly a main * progres ut with oN ERROR Go” BACK getting 
a restartable error. 19 
1-068 = Handle delta PC values greater eo “15. JBS 12-FEB-1980 
- Mendis. error f trace ng ina eotyhe g yitaout 980 ne numbers, except for 
with ine number. 7- 
1-066 = Ireat t float ing faults the 1, Zs traps IN BA grrities -. Weasunot9Ee 
-065 - Dist guish between a sneer 2 and a einer frame in BASS 
when an error 3 ON E ACKiTO 0 in a minor frame th : Saget Ry 

frame can hand le the error. ay I {3= EB-81. 

1-066 - Comments referr aEace are ysing a an obsolete name; the name 
sheuia be YSSMESSAGE: Syenee: EXE. PL 
1-067 = Convert SS$_DECOVF to equivalent Bass error. att bere - 

-068 - Remove code” thet” co a@ workaround f bua jo IND ae not 
be called with an ar yaent of —~# vn in 8 s$SusER Ne. instead of 
patching the return of t rame that returns to © eno! tee code, 
do nothing and let BASSSHANDEER call SYSSUNWIND. Th - fixes a bug 
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F} 1% 172 1! with integer overflow that occurs when the g, h emulator is invoked. 
os if 1} PLL 26-Apr-82 

3 (176 1 1 ! 1-069 - Sock out the last edit. It broke STOP and ond pocetOty cone exter 

; 175 17> 63 ngs. coperensty., corte o— SYSSUNWIND with zero oot 

3 178 178 1: york as expected. ne sere obscure fix (in n BAS Guanoe R) 

3; (17 if , § ast Cinteger erties’ “ th the g emulator. PLL 11-May-19 

; 178 178 1 | 1-070 - R must che¢ k to see how fa man haat in the gignal 

3 1 1 +; caste st - sonet i mes there SW. PLL 1-Ma 19 

cs 180 1 ! 1-071 = Give the new error message ' roper error handling’ if a main 

; «(181 181 1! program calls a subprogram in pes orrer peneser a3”? this sub- 

3; (1 1 ; 1! program does an ON ERROR GO BAC L 22-J sie 

cy 1 1 ! 1-072 = make variables BASST_ERN, BASSE Ear ond AS ER g 

a 1 1! that they are Stites le from ofher routines Tspect Heatly BR BAsscrR ¢) 
; «64185 185 1! pi ee none make BA awe & BASSSMODULE global routines. -Jul-1 

3 : : : : 1-073 - “vec ar ee hou ld be prepared to restart an ANS! INPUT ames 

P4 . - u = 

7 188 1°! 1-074 = don't set tes Sols BACK in BASSSUSER_HAND if this is a restartable 
; ! 9 ’ r) ! error. 99-Mar-1984 

; «6191 191 «#1 

s 192 192 1 !<BLF/PAGE> 
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SWITCHES: 


SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


| LINKAGES: 


INKAGE 
RESTART LINK = ySB yOTUseD (11, 10, 9) 
NOPRESERVE (8, 7, 6, 5, 4, 3, 2); 


REQUIRE *RTLIN:OTSLNK'; 
' 


; TABLE OF CONTENTS: 


Define common Linkages 


FORWARD ROUTINE 

BASSSSIGNAL : NOVALUE, ! signal an error 
BASSSSTOP : NOVALUE, ! signal an error 
BASSSCOND 4 ' compute VAX/VMS cond value 
PC LINE. " ! convert PC to Line number 

SSSCINE ! get the number of the current Line 
BASSSFUNCTION, ! get the name of the current function 
BAS ULE ! get the name of the current module 
HANDLER_HANDLER i handler for BASSHANDLER 
RESTART: RESTART_LINK NOVALUE, i unwind target 
RESTART 10 : RESTART_LINK NOVALUE, ! unwind target for 1/0 
BASSSUSER_HAND, ' try to let user handle error 
BASSRE SUME, ' res from a condition handler 
BASSRESUME _7, ! Likewise, but no Line number 
BASSON_ERR@Z, | ON ERROR GOTO 0 
BASSON_ERR_ BK, : ERROR GO BACK 
BASSSHANDLER, ' handle a BASIC-PLUS-2 error 
BASSERL, ' return error Line number 
BASSERR, ' return current error number 
BASSERN, ' return module name of error 
BASSERT ! return text of error number 
BASSERROR : NOVALUE, a | gral an error from compiled code 
BASSSERR_INIT : NOVALUE, ! Initialize for the RUN command 
BASSPUSH_ ERR, ' Save error sate 
BAS ERR; ! Restore error info 


INCLUDE FILES: 


LIBRARY ‘RTLSTARLE'; 

REQUIRE *RILIN:RTLPSECT’; 
REQUIRE ‘RTLIN:BASFRAME' ; 
REQUIRE *RTLIN:BASERRMSG'; 


system symbols 


macros to declare psects 
define frame structure 
Define ERROR_LIST macro. 
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; 1 1 1 

; § i } REQUIRE *RTLML:OTSLUB’; ' Define LUB 

3; 254 1 § 1! 

3 5 4, : : MACROS: 

: i 

; 5 1743 1 | EQUATED SYMBOLS: 

2 eee 

; $6 1768 } Define the special error codes used for 1/0 errors and traceback. 

: 264 1748 1 

: 65 1308 1 LITERAL 

3 $8 1750 #1 ERR_TRACE_MAIN = 4089, ! main program 

3 €6 1751 «#1 ERR_TRACE_SUB = w tt ! external subroutine 

3; 268 17 é 1 ERR-TRACE-EXTF = 40 Ne i external function 

3 44 17 1 ERR_TRACE_DEF = 40 § ! DEF procedure 

; 270 1754 1 ERR-TRACE-DEFS = 4098, i DEF® procedure 

3 71 1755 «1 ERR_TRACE_GOSB = 4094, : 

; 27 17 $ 1 ERR_TRACE_ONER = 4095 ' condition handler 

> 2? 1757 1 ERR-TRACE-IOLST = 4087, i Immediate mode code 

3 74 1738 1 ERR_TRACE_PCPSL = 4086; ! user PC=!XL, PSL=!XL 

: $e 1780 1 te 

: 27 1761 1 ! Define the return values from BASSSUSER_HAND. 

ie te | 

; 80 1764 1 LITERAL 

3 1 1765 1 USER_HAND_CONT = 0, ! Continue from point of error (or of unwind) 
3; 2 1706 1 USER_HAND_BACK = 1, ! Try caller's handler 

; 28 1767 1 USER_ FAIL = 2; ! Force system error processing 
Be eT. 

; y] 1790 1 ' Define the return values from the user's error handler. 

3 Bs Hae : : None of those below implies RESUME with a Line number. 

3 289 1773 17 

; 290 1774 1 LITERAL 

; 291 1775 «(1 USER_ERR_RSUMZ = 0, ! RESUME with no Line number 
3 § 1776 1 USER_ERR_GOBK = 1, ' ON ERROR GO BACK 

; 9 44 } USER_ERR_OEGZ = 2; ! ON ERROR GOTO 0 

3 295 1378 1 !¢ 

3 + \? ' : Define the coded values for system error handling. 

; 298 1782 1— 

; 299 17 1 LITERAL 

; 300 17 1 K_SYS_CONT = 1, ' Continue in Line 

; 301 1785 1 KTSYS"EXIT = 2. i Exit the image (LIBSSTOP) 
3 og 1? ' K_SYS_RESTART = 3; ! Restart the Line which had the error 
; 304 1788 1! 

; 05 i? 5 ' PSECTS: 

; 09 1791 1 DECLARE_PSECTS (BAS); 


k 7 
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OWN STORAGE: 


L 
BASST_ERN : BLOCK (8, BYTE) INITIAL (BYTE ( REP 8 OF (0))), ! descriptor for module name 
BASSL-ERR : INITIAL (9). t current error code 
BASSL_ERL : INITIAL (0); ! Line number of error 


SFereree 


Av ~S Se 


BASSL_ERRFLG : IN 1 = error in progress 


; 1 1 

; 1 1 

3 1 1! 

; 1 1 

3 § 1 1 

3 1 1 

B18 

; 1 1 

: 5 1 1 ITIAL (0) ' 

; 1 1 HIGHEST_LEVEL : INITIAL (05, i Level to unwind to on RESUME 
3 1 1 HIGHEST FMP : iN TIAL (93 ! Frame to unwind to on RESUME 
3 1 1 ACCUM_LEVEL : INITIAL (0) ' Level to unwind to on RESUME with a Line number 
; 321 1805 1 NB_COUNT : INITIAL (05, i Level for top handler to unwind 
3 § 1398 j SYSTEM_ERROR : Nee (0), ' Set for ‘fatal fatal’’ error 
3 138 1 GONE BACK : INITIAL (0), : 3st for ON ERROR GO BACK 

8 4 1 o8 4 ERROR_STACK : VOLATILE VECTOR (2) oS (0, ) ' Error stack 

; é 1816 ' ERROR-STACK_IN] : VOLATILE INITIAL (0); f Init flag for ERROR_STACK 

; 1811 1 {4 

3 8 18t¢ 1 ! Some OWN storage is needed so that communication can take place 

; 3 HF ' : between levels of BASSSUSER_HAND and to RESTART. 

BY 

3 7 1819 1 BASSA_CH_CUR_LN : INITIAL (0) ! restart PC 

3 1313 i BASS$SL_GOING BACK : We (05, ' 1 when “going back" 

3 5 Ho : BASSA_RESTART : INITIAL (0); ! restart PC 

3 7 1821 1! 

; : 3 § ' EXTERNAL REFERENCES: 

; 340 1824 1 

3 1 1825 1 EXTERNAL ROUTINE ; 

; § 18 $ 1 LIBSMATCH_COND ! match condition codes 

3 18 1 LIBSSIGNAC : NOVALUE, ! system error signaller 

; 4 18 8 1 LIBSSTOP : NOVALUE, ' system fatal error signaller 
3 5 18 1 SYSSUNWI ! unwind the stack 

3 § 1830 1 L1B$FIXUP FLT, ' fix up reserved operands 

; 3&4 1831 1 LIBSGET_VA ! get storage 

; 3 1 35 1 LIBSFREE_VA, ! free storage > 

; 34 1833 1 STRSCONCAT, ' Concatenate two strings 

; 350 1834 1 STRSCOPY_R, ! Copy a string by re 

3 3) \3 5 ths 98 54 DX, ' Copy a string by desc : 
3 ; 1 1 SYSS$GETMSG, ! get the message text for a signal condition 
3 «(35 \3 1 thy ONERR ' run a condition handler 

3; 6354 1 3 1 BASSSRESTART 16, ' Restart an 1/0 statement 

3; 355 1 1 BASSSPUR_IO_ERR : NOVALUE, ' Purge 1/0 on an error 

3 28 1840 1 OTSSSTERA_10, ' Test for terminal 1/0 

; 35 1841 1 BASSSUNWIRD : NOVALUE, ! Purge a frame 

3 28 1 § 1 BASSSUNWIND_I0 : NOVALUE, ! Purge a frame's 1/0 

3s 33 ' i : BASSHANDLER; ! Header for condition handler 
; 361 1845 1 !¢ 

: $e : ry ' : The following symbols are defined in module BASSMSGDEF 

; 364 1848 1 


9 EXTERNAL LITERAL 
BASSK_FAC_NO : UNSIGNED (12) ! Facility code 
BASSE RE SRO ERR : UNSIGNED (8), ' RESUME with no error 
BASSK_ILLRESSUB : UNSIGNED (8), ! Illegal RESUME to subroutine 
BASSK“DIVBY ZER : UNSIGNED (8); Divide by zero 
4 BASSK_IMASQOROO : UNSIGNED (8), ! Imaginary square root 
5 BASSK Leea eo vunstenee tb ), 1c seger erguaent to LOG 
: ! Integer error 
5 BASSK"MEMMANVIO : UNSIGNED (8), : Menor management violation 
5 BASSK_FLOPOIERR : UNSIGNED (8) ! Floating point error 
25 BASSK-SUBOUTRAN : UNSIGNED (8), i Subscript out of rnage 
? BASSE JAAXRE EXC : UNSIGNED (8). i Maximum memory exceeded 
? Baee mth : UNSIGNED (8), A Lege) byte count tor s/0 
! channel n, 3 
8 ASSR_PROLOSSOR : UNSIGNED (8), ! Program lost, sorry. 
BASS$K_STRTOOLON : UNSIGNED (8), ! String too long 
5 BASSK_DECERR : UNSIGNED (8) ! Decimal error or overflow 
08 SSK_IMPERRHAN : UNSIGNED (8); ! Improper error handling 


'¢ 
The following VAX/VMS condition codes are used in this module 
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MEAN 9 ODA UE WN 8 ODNOA UE WWI 8 OONOUS WIN —OO@ 


EXTERNAL LITERAL 


i Attempt to compute the square root of a negative number. 
The result will be the reserved operand. 


MTH$_SQUROONEG, 


i Attempt to conpuse the logarithm of 0, or of a negative number. 
The result will be the reserved operand. 


MTH$_LOGZERNEG, 

i Attempt to raise E to a power so berge that the result cannot 
! be represented by the computer. That power is about 88. The 
result will be the reserved operand. 


MTHS_FLOOVEMAT, 


OOOO ODWOWDDODOOOON NNN NNN 


me ee ee ce ae ee ce ce ee me ee ee ce ee ce ee ee ee me a ee ee ee ee et ee ee ee ce ee ee ee ee ee ee ee ed 
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404 ! 

! Attempt to raise a base, B, to a power, P, where this is undefined. 
406 ! For example, 0 raised to the 0 power is undefined. The result 
pet } will be the reserved operand. 
408 va MTHS_UNDEXP, 
411 9 i Attempt to take the SINE or COSINE of a number so Large that, 
tig 9 ! after taking the number modulo 2 PI, there is no information 
41 9 ! left. This is caused by the fact that the computer keeps 
414 9 ! only the highest-order significant bits of a number. The 
415 9 : result will be the reserved operand. Other functions in the 
7\$ 0 math library may also signal this under similar conditions. 
41g 9 |. MTHS_SIGLOSMAT, 
+30 6 i Attempt to allocate a dynamic string when there is 
421 0 ! not enough virtual memory left to hold it along with 
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3; 6 ; 1306 1! all of the other strings allocated. 

3; 6 1907 1 !- 

; 424 1308 1 STRS_INSVIRMEM, 

; 425 19 1! 

; 4 $ 1ai9 1 ! Divide by zero in string arithmetic. 

3 4 191 1 !- 

5 6 : 13\¢ 1 STRS_DIVBY_ZER, 

3; 4 1915 1! 

; 4350 1914 1 ! Attempt to create a tiring Longer than 65535 characters, 

3; 431 1915 1°! the maximum length allowed by the VAX-11 string architecture. 
3; «6 ¢ 1318 1! This can be the result of, for example, the concatenation o 

3 : ? 13\f ! two 50,000 character strings. 

: : 5 1313 ' STRS_STRTOOLON, 

3; 437 1921 1 ! Attempt to continue to do 1/0 to a closed file. 

; 438 19 ¢ 1! (That is, the file was closed between element 

: 439 19 1 ! transmitters, and another element transmission 

; 440 19246 1 ! was attempted.) 

3 441 1925 1 !- 

3 rr 8 \ OTS$_10_CONCLO; 

3 6446 1928 1 ! Attempt to compute a packed decimal result which the computer 
3 «6445 1929 1 ! can not represent. 

; 446 1930 1! : 

:; 447 1931 1! SS$_DECOVF ! (defined in RTLSTARLE) 

; 448 1336 j 

3 449 1933 1 !+ a, 

3; 450 1934 1 ! Attempt to divide a real number by 0. 

3 6451 1935 1! 

; $26 1936 1! SSS_FLTDIV ! (defined in RTLSTARLE) 

3 cet tH ' SSS_FLTDIV_F (fault) ! (defined in RTLSTARLE) 

3; «6455 1939 1 ! Attempt to divide an integer by 0. 

; 456 1940 1! ; 

; tt 13) : 1  SS$_INTDIV ! (defined in RTLSTARLE) 

3; 459 1963 1 ! Attempt to compute a floating point result which the computer 
; 460 1944 1 ! cannot represent. 

3 461 1945 1! : 

3 $66 1946 1! SS$_FLTOVF ! (defined in RTLSTARLE) 

3 ret + od : SSS_FLTOVF_F (fault) ! (defined in RTLSTARLE) 

; 465 1949 1 ! Attempt to compute an integer result which the computer cannot 
3; 466 1950 1 ! represent. 

3; 467 1951 1! E 

3 $68 1326 : : SS$_INTOVF ! (defined in RTLSTARLE) 

; 470 1954 1 ! Reserved operand fault. In the context of BASIC, this is usually 
3; «6471 1955 1 ! caused by an attempt to refer to a reserved floating operand, but 
3 rh 1338 1! it can be caused by other errors. Only the floating reserved 
: of? I 3at ' operand case is handled by BASIC. 

; 475 1959 i $S$_ROPRAND ! (define in RTLSTARLE) 

; £79 1961 1 ! Attempt to refer to an invalid address. This can happen if 

; 4478 1962 1 ! range checking on array indicies is defeated. 


—————__——- 
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RROR 16-Sep- 3: AX-11 Bliss-32 V4.0-7 Pa 10 
5 1a-Sep- 138 9: §; af BASRTL.SR ReIB BASERR ROR .B3 31 ” (2) 
; 479 1963 1! . 
; cat 1308 ! } SS$_ACCVIO ! (defined in RTLSTARLE) 
3; 4 1298 1 | Attempt to use an index outside its proper range. This can happen 
3 ret 1eeb : when the compiler generates in-line array indexing. 
: 485 1969 1! $S$_SUBRNG ! (defined in RTLSTARLE) 
> 486 1970 1! 
3; «487 1971 1 
; 488 124 1 EXTERNAL 
; 489 1973 1 OTSS$$A_CUR_LUB : ADDRESSING MODE (GENERAL); 
3 490 1974 1 ! Addr of current LUB/ISB/RAB 
; 491 1975 1 !<BLF/PAGE> 


ee 
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0" 1eSeoc}98e 99:83:18 BASRTL:SRESGASERROR. 039; 1 tee 
: | 


3 3 15 J te 

3 16 1 ! The following field set represents an item pushed onto the 

3 1? 1! error stack. It contains the entire state of the error system. 

3 18 1! It is used when it is necessary to save the error state to run 

3 i : : the compiler to compile an immediate mode statement. 

; 9 0 es 

; 540 § 1 FIELD 

; re 5 ? ! PUSH {TER = 

; rk 025 1 PUSHSA_NEXT = (0, 8. ZBPVAL, 3. ! Next item 

; 546 3 $ 1 PUSHSA_PREV = (4, 0, %BPVAL ! Previous item 

; 545 1 PUSHSL_-ERRFLG = (8,0 wBPVAL, 63 ! 1 = error in progress 

3 +8 028 1 PUSHST_ERN = ie j, ! Module name of error 

; 34 029 1 PUSHSL-ERR = j . 0, ZBPVAL, 0}. i Error number 

; 548 030 1 PUSHSL_ERL = (24, ZBPVAL ° ! Line number of error 

: 549 031 1 SHSL"HGH_LVL = g. » XBPVAL, 0) i Level for RESUME 

: 550 0 é 1 PUSHSA_HGH_FMP = (32, 0, 3BPADDR, 05, | Frame for RESUME 

; 51 033 1 PUSHSL_ACC_LVL = (36, 0, %BPVAL, 8 ° ' Level for RESUME-Line 

3 226 0 1 SHSL_UNW_CNT = (40, 0, ZBPVAL, 0], ! Amount to unwind at top 
3 22 035 1 PUSHSL_SYS ERR = [44 ZBPVAL, 0 ! 1 = “fatal fatal’ error 
: 554 036 1 PUSHSLGONE BAK = £48, 6, <BPVAL, gi. i 1 = ON ERROR GO BACK 

; 555 H 1 PUSHSA_CUR CIN = (52, 0, %BPADDR, ! Restart PC 

; 236 038 1 PUSHSL_GOING BACK = (56, 0, XBPVAL, 63, { Restart fla 

s 3 039 1 PUSHSA_RESTART = (60, 0, ZBPADDR, 6) ! Real restart PC 

3 e28 040 1 ES; 

3; 39 047 #1 

; 560 9 1 LITERAL 

3 30) 3S? ' PUSHSK_LENGTH = 64; ! Number of bytes to allocate 


i 
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RROR o=sep 3:13 AX-11 Bliss-32 Vv4.0-74 
va 18-Se0-1984 90: § af} BASRTL.SRCJBASERROR.B3 37 
5 1 GLOBAL Rout ine BASSSSIGNAL ( ! signal an error 
§ 1 ERR_CODE ! the BASIC error code 
! NOVALUE = 
§ jie 
9 : FUNCTIONAL DESCRIPTION: 
§ 1/ signet an error for BASIC=PLUS-2/VAX. The argument is the 
Z : } BASIC-PLUS=-2 error code. 
$88 ! FORMAL PARAMETERS: 
037 1? ERR_CODE.rl.v The BASIC=PLUS-2 error code. The codes and 
78 3 : their meanings are Listed in file BASERRMSG. REQ. 
1 | IMPLICIT INPUTS: 
et $63 i i NONE 
H oes 1 i 
B7 066 1°! IMPLICIT OUTPUTS: 
85 $63 i NONE 
286 Oe 1/ 
068 1 ! ROUTINE VALUE: 
588 069 1! 
89 070 1! NONE 
3 $73 } i COMPLETION CODES 
$92 CRF hoecgnand-co: 
ape 075 1! 
95 076 1 ! SIDE EFFECTS: 
298 077 1! 
59 44 1! May never return to the caller. 
4 0 1! 
99 080 1 !-- 
600 081 1 
601 oes BEGIN 
one 08 
60 084 LOCAL ‘ 
one bas VAX_11_COND_VAL : BLOCK (4, BYTE]; ! 32-bit VAX/VMS condition value 
one i VAX_11_COND_VAL = BASSSCOND VAL (.ERR_CODE); 
608 HY i The Line number, module name and function name are added in 
on 44 : _BASSHANDLER for each level that this signal goes through. 
611 O38 LIBSSIGNAL (. VAX_11_COND_VAL); 
612 09 END; ' of BASSSSIGNAL 


-TITLE BASSERROR 
IDENT \1-074\ 


-PSECT _BASSDATA,NOEXE, PIC,2 
00# 00000 BAS$T_ERN:: 


pen 


ret tS oF gh 
BASRTL.SRC JBASERROR .832;1 


be 19:80:56 
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So oo f& co oS 
So ooo ©& ooeooeosjeso 
EES RSCERE SEES 
oO 
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So 
Oo 
o 
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PIC,2 


-BASSCODE ,NOWRT, SHR, 


-PSECT 


treererevrerrerevrereeees 
esses eeeeeeeeasse 
esseeeeeeeeeeess 
esse eee eeeeeas essees 
eseseeseeeeeeese ee seeesee 
esses eeeeeeeeeeeees 
ess se eesnas esses eeees 
NN TONS TOTO rw 


esses ese ese eees sess eenes 
NNT Tt Ot Sr CucuCuCunSs reuty 
sss eeeeeeeeeseeeeeas 
ese eee eee e eee ese eees 
sess eeeeeeeees 


000 P.AAA: 


OOF 
B36 
08 
4 
5 
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SSSSSSSSS 
SOOOOCOCOCOSOOOOOOOooSooo 


MUNIN TF ONT NICS TTT 
COOCCOCOSOOCOOCOOoOoooo 


neces FOr NIN 
SOOCCOCOCOOOCOOCOOOOoOoooO 


ecu Ft TNS 
COOoooooo 


cucu 2 rcs TO 
SOOCOCOCOSOSOSOOOSOOOOOooO 


a> shh > ® 4b so > SS SS dn) 
SOOCCCSOSOOCOOOoOoOoooo 


wu 


wm ~N 
wo 


ooooo 
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- 19-3087 3382 90:82:12 BASRTL.SRC ESaasexnon 035; :1 
: 1 15A e o o . oe co e 2 ¢- o 
198 * a ’ ae 6 ra . o ’ 
1 ; * a - s - a . * a a 
1 * * o a - e a * o a 
1A . oO a . a o ca * a a 
183 2 . oO oe o € a ’ o o 
109 ’ e - . - o oe . . o 
0 0 0 O1F0 e o * - . eo . * . eo 
O1FF oe o eo eo * . . o * . 
ERR_SEVERITY= P.AAA 
ERR-SYSTEM= P.AAB 
-EXTRN LIBSMATCH_COND, LIBSSIGNAL 
-EXTRN LIBSSTOP, “SYSSUNWIND 
-EXTRN LIBSFIXUP_FLT, LIBSGET_VvM 
-EXTRN LIBSFREE_0M, STRSCONCAT 
-EXTRN STRSCOPY-R, STRSCOPY_DX 
~EXTRN SYSSGETMSG, BASSINIT_ONERR 
SEXTRN BASSSREST AAT 10 
EXTRN S$$PUR_10_ERR 
eEXTRN OTSSSTERR 10, BASSSUNWIND 
EXTRN BASSSUNWIRD [0, BASSHANDLER 
-EXTRN BAS URAC NO, BAS$K_RESNO_ERR 
EXTRN BASSK~ILLRESSUB 
-EXTRN BASSK-DIVBY_ZER 
-EXTRN BASS$K~IMASQOROO 
EXTRN BASSK-ILLARGLOG 
-EXTRN BASSK-INTERR, BASSK_MEMMANVIO 
XTRN BASSK"FLOPOIERR 
-EXTRN BASSK~SUBOUT an 
EXTRN BASSK -MAXMEE XC 
SEXTRN BASSK ILLBYTCOU 
~EXTRN $_ON CHAP IL BAS$K_PROLOSSOR 
-EXTRN BASSR 
-EXTRN BASSK~ <BECERR, BASSK_IMPERRHAN 
-EXTRN MTH$_SQUROONEG, MTHS -LOGZERNEG 
SEXTRN MINS” tO OVERAS. MTH EXP 
-EXTRN MTHS"SIGLOSMAT, STRS-INSVIRMEM 
-EXTRN STRS“DIVBY_ZER. STRS~STRTOOL 
-EXTRN OTS$~10_CORCLO. OTS$SA_CUR_LUB 
0000 90000 ENTRY BASS$SIGNAL, Save nothing 
06 aC DD 900¢ PUSHL ERR 
0000v CF gi FB 0000 CALLS ni N05 $cOND VAL 
0 DD O000A PUSHL VAL 
000000006 00 01 FB 900¢ CALLS KI IBSSICANL 
04 0001 RET 


3; Routine Size: 20 bytes, Routine Base: _BASSCODE + 0200 


613 2094 1 


cc 


—— PM 


7. fe ee ee ee Fe &e Se 


7 es es = eS & & & & & S&S 


sees es ee eeeeee 
eeeteeoeveeevene 


(5) 


is SO RS SS ae ae Surana isis | 


| PASSERROR 1e-8Sb-198e 99:82:56 BASIL $RETBASERROR 04951 poor if | 


; 615 5 1 GLOBAL ROUTINE BASSSSTOP ( ! signal an error 

3 ei 38 1 ERR_CODE : the BASIC error code 
: 2 , ! NOVALUE = 

; $15 $99 1 I+ 

; ? : : : FUNCTIONAL DESCRIPTION: 

: 6 1 1/ Signal an error for BASIC-PLUS-2/VAX. The argument is the 
: ? § ; : : BASIC=PLUS=-2 error code. ° 

; 6 5 105 | FORMAL PARAMETERS: 

; 6 7 109 1} ERR_CODE.rl.v The BASIC-PLUS-2 error code. The codes and 
; 628 108 1! their meanings are Listed in file BASERRMSG.REQ. 
: ? 9 4 ' } The severity must be ERROR or SEVERE ERROR. 
; 631 Wy { IMPLICIT INPUTS: 

1 ee | ee 

; 635 115] { IMPLICIT OUTPUTS: 

HRY] 

; 639 119 1 | ROUTINE VALUE: 

; 640 120 1! 

; ) : 1 : NONE 

; ec8 5 i COMPLETION CODES: 

; 645 125 ; NONE 

; ec ; | SIDE EFFECTS: 

: 649 129 1: Never returns to the caller. 

me HRT 

; 63¢ 132 

; $37 ; BEGIN 

> 655 135 LOCAL 

: $36 ; § VAX_11_COND_VAL : BLOCK (4, BYTE); ! 32-bit VAX/VMS condition value 
; 698 138 VAX_11_COND_VAL = BASSSCOND_VAL (.ERR_CODE); 

; 660 140 i The Line number, module name and function name are added in 

: $67 ; 1 BASSHANDLER for each level that this signal goes through. 

; $68 128 LIBSSTOP (.VAX_11_COND_VAL); 

3; 664 144 END; ' of BASSSSTOP 


0000 000 -ENTRY BASSSSTOP, Save nothin : 2095 
04 ac 0D b000 PUSHL  ERR_CODE yee st . : 3138 


‘ee 


anne WESSOcHSRE QREEAE YAMSH Ohba RRehbal 243, 


mor BABE a te 


000000006 00 #1, LIBSSTOP 
, Routine Size: 20 bytes, Routine Base: _BASSCODE + 0214 


; 665 2145 (1 


Page 17 
oe? 6) 


3 2143 
+ 2164 


RROR . 1b-se “19 3: AX-11 Bliss-32 v4.0-76 Page 18 
en mpeen 188s PRieziks | aASAT Obhe take Knot os. oF 
INE BASSSCOND_VAL ( 1 Consute condition velus 

E ' BASIC error code 


ae 3 


Sa 
NOW wr 


se 


ODENAUNE WP OOOO 


‘ee 
j Four lew, DESCRIPTION: 


Convert a waste error code to its 32-bit VAX/VMS error code. 

ow og ion is done by copying the BASIC error number to the 
ode f eld. setting the oever ity field based on the entry in 

eee" Ht tae ty table for po | gode. and setting the facility 

to BASSK_FAC_NO. The facility specific bit is also set. 


{ FORMAL PARAMETERS: 


ERR_CODE.rl.v The BASIC-PLUS-2 error code. The codes and 
their meanings are Listed in file BASERRMSG. REQ. 


POPPA AAAAS 
Se 


SEES 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
{ Rout INE VALUE: 
The 32-bit VAX/VMS error code. 
i COMPLETION CODES: 
NONE 
{ SIDE EFFECTS: 
NONE 


APU OOS NONE MI ODO Ura 


—* NORIO PIPIAYIRPI RGR RIAD I a a nn ns nn a a na a a a ss ss ss 4 HH 


LOCAL 
RESULT : BLOCK (4, BYTE); ! 32-bit VAX/VMS condition value 


3 


J] = (IF (.ERR_CODE GTRU 255) THEN STSSK_INFO ELSE .ERR_SEVERITY C.ERR_CODE)); 
ERR_CODE; 

Ss . 
= 


BASSK_FAC_NO; 
END; ! of BASSSCOND_VAL 


Be Se Be Oe Ge Be Oe Ge Be Se Se Se Se Ge Ge Se Se Ge Ge Se Ss Ge Ge Ge Ge Ge Se Ge Se Ge Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Ge ee 
me a iii i kk a a at ek ta a 2“ 4s 4 1 a 


Sway 

ee 
oo 

SESRENLSESE 


DONO US WwN—O 


RROR “Sep-19 7:23:13 AX-11 Bliss-32 V4.0-74 
ke “ asf 99:82:88 BASRTL SRC BASERROR.039;1 
ENTRY BASSSCOND_VAL, Save nothing 


51 LAL UL 
OO0000FF BF 06 =A CMPL FRR CODE, #255 
BLEGU 
50 MOVL #3, RO 
FDC1 . 1$ SOAR RR_SEVER 
bc act MOV ZBL SERA CODE (ROS, RO 
51 3 5 2s NSV Esuyt 
1 C AC NSV ERAC hae is, if RESULT 
80 : F B1Sw2 #327 
51 0c : 000000006 &F INSV KFA. " #16, #12, RESULT 
5 1 OVE RESULT 


3; Routine Size: 58 bytes, Routine Base: _BASSCODE + 0228 


719 2198 1 


rayne IRI MED WGA eat, 


3 1 1 ROUTINE PC_TO_LINE_NO ( ! Convert PC to Line number 
3 1 FMP, ! Frame containing Line 
3 ! PC ! PC to be converted 
3 4 ; d= 

: 7 ? : ‘ee 

; 137 5 i FUNCTIONAL DESCRIPTION: 

; , 9 } Compute the BASIC Line number corresponding to a PC value. 

; z3 09 | FORMAL PARAMETERS: 

; 7 5 i 1/ FMP. ra.v Address of the frame from which we want the 
phe \¢ 1! Line number. 

; 735 1 1! PC.rlu.yv The program counter soregeoene =e to the 

Se 1461! Line number. If no exact match is found, use 
3 g \3 : } the next lower PC value. 

; 139 Hi i IMPLICIT INPUTS: 

: 741 i3 1/ The (delta PC, Line number) table, pointed to by the FCD 

3 s } : for the main procedure. 

: 744 1 | IMPLICIT OUTPUTS: 

3 745 1! 

3; 74 4 1! NONE 

3; «74 » 2 

3; 748 $ 1 ! ROUTINE VALUE: 

; 749 1! 

3 o30 : ' The Line number, as a 32-bit binary value. 

; 138 0 1 | COMPLETION CODES: 

3; 75 th ee 

: Fee gyi vaste: 

; 736 4 1 | SIDE EFFECTS: 

ae : ee 

3; 758 : 7 NONE 

: O38 b Ti 

; 761 39 10 

3 rO¢ 40 BEGIN 

ie ww 

; re “§ FMP : REF BLOCK (CO, BYTE] FIELD (BSFSFCD); 

: reo 45 LOCAL 

3; 768 v4 BSFSA_MAJOR_STG : REF BLOCK (CO, BYTE] FIELD (BSFSMAJOR_FRAME), 
3 76° 4 PC_DECTA_TABLE : REF VECTOR, 

3; 770 rt SEARCH_ARG; 

ie $6 5 1 

: 8 51 i If the PC is zero, the cell that held it must not have been 

3; 774 26 ' set up his means that we are trying to find the PC for 

3; 775 i a@ routine in which the first statement has not yet started 

3 76 22 : execution. Return a zero to indicate this. 


8 
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H i , IF (.PC EQLA 0) THEN RETURN (0); 

; 781 § '¢ 

: f § ¢ } Load the pointer to the major procedure's frame. 

; f ¢ 86 BSFSA_MAJOR_STG = .FMP CBSFSA_BASE_R11); 

: 7 64 2 I Get a pointer to the (PC delta, Line number) table. 

3 rer 65 ! This requires skipping over the text of the module name. 

; 789 89 PC_DELTA_TABLE = .BSFSA_MAJOR_STG CBSFSA_PROC {yf + : 

: je o8 ((7(.BSFSA_MAJOR_STG CBSFSA_PROC_INFOJ)) “AND 255) + 1; 

; a4 26 Compute the PC relative to the beginning of the code. 

; 194 , SEARCH_ARG = .PC = .BSFSA_MAJOR_STG CBSFSA_CODE_BEG); 

: oe 74 i Search the table. If an exact match cannot be found, use the 

; 79 75 ' Line number just before the PC. 

BS Hg 

; 800 4 DECR TABLE_INDEX FROM .PC_DELTA_TABLE (OJ TO 1 DO 

3 B53 ie BEGIN 

; 803 81 4 IF ((((,.PC_DELTA_TABLE C.TABLE_INDEX])*-16) AND 65535) LEQU .SEARCH_ARG) 
; 805 es RETURN ((.(PC_DELTA_TABLE C.TABLE_INDEX])) AND 65535); 

; 809 85 END; 

: B08 ae 

; 810 88 i We get here only if the number cannot be found in the table. This 
3 313 $85 ! means that the PC was stored by a fake Line number before the first 
3 \¢ 90 ! real Line number. This is so unreasonable that it is more bthely 

3 8 91 ! due to a bug in either the compiler or the RTL. To make the problem 
3 ais 3 more visible, return a -1. 

: 816 % RETURN (-1); 

3; 817 295 END; ! of PC_TO_LINE_NO 


000C 00000 PC_TO_LINE_NO: 
. WORD 


Save R2.R3 ; 3199 

08 ac 05 000 TST > 2257. 

3¢ 613 0000 BEQL «6s 3 : | 

50 04 AC 06 9007 MOVL FMP, RO > 2262 | 

50 F4 AO p 00 MOVL ~12(R0) BSFSA_MAJOR_STG ; 

51 00AB DO 9A 0000F MOVZBL a} 1(BSF$A_MAJOR STGJ, R1 ; 2268 
51 00AB ¢ CO 00014 ADDL 71(BSF$A_MAJOR_STG), R1 : 

53 08 ac 0083 ) be B18 iNet PET EST eR AROOR STG), PC, SEARCH_ARG : 2072 
50 61 o4 a 0038 ADDL a. (PC_DELTA_TABLE). TABLE_INDER : he 


n 8 
ASSERROR -Sep-1984 00:23: AX-11 Bliss-32 V4.0-7 P 
paste 19=808-} 382 90:83:43 BASRTL_SRe BASERRON 039; 1 7 (BS 
614 FO «OF O78 8 1$: ASH #-16, (PC_DELTA_TABLE)CTABLE_INDEX], R 
53 35 8 i FD ced #0, nee R . SERRCHEARG settee . 3 | 
61 F PUSHAL (PC_DELTA_TABLE)CTABLE_INDEX t 2283 
50 9E tt é MOVZWL a(SP)+, RO ; | 
£9 50 FS C 2%: SOBGTR TABLE_INDEX, 1$ ; 3278 
0 01 ce 003F MNEGL #1, RO + 2296. 
4 O04e RET ; 
50 04 00043 3$: CLRL = RO + 2295 
04 00045 RET 3 | 


; Routine Size: 70 bytes, Routine Base: _BASSCODE + 0262 


WWM Awmrrornororernonrnnrrnn orn 


—OOVONAVES WN OC OOVNOuUSwn—0O/0 
A PUPUITUNINININNINS 2 2 2 SO SS DOO OOOCOOCOOC OWOWOw 


MEW OOD NOAUE WIN $9 OD NAME WIN 9 ODNOA UENO OE NOU EW OO OOO 


De ee ee 


‘C9 Gd Cd Cd Cd Cd CO Cd CO CD 
AQiMnaqaaMAnvwvi 
WN — OO0ONOuUSwhr— 


861 


WANA AANA NWN AAAI ANNA AIAN AIA AAAI 


=I et tt 0 0 a 


‘0d CO OD GD CO CD CD CO CD. 

Wir? ot ot a ot eo 

SCOOONOUS 
POPPOPOPONONININININONINGNININIPININYPININININIPIPINPIPIPI PIPPIN PUPUPNUPUNUPNUNONUPONUNoTNy 


Ce at et ek ek teh oh oh eh ah ah eee heed 


GLOBAL we ie BASSSLINE ( 


Be 7:82:58 EBASRTL SRC SBASERRON-039; 1 Page 5} 


' Get current Line number 
, ' Current frame 
= 


lee 


FUNCTIONAL DESCRIPTION: 


Compute the number of the Line now in execution. At the 
beginning of each Line, the BASIC compiler issues 


MOVAB = =3(PC) ,BSFSA_MARK (FP) 
which stores the PC of the MOVAB. This routine then 
scans the PC delta table (also produced by the compiler) 
to find the correct Line number. 
FORMAL PARAMETERS: 


FMP.ra.v Address of the frame from which we want the 
Line number. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The Line number, as a 32-bit binary value. 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


MAP 
FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD); 


RETURN (PC_TO_LINE_NO (.FMP, .FMP CBSFSA_MARK))); 
END; ' of BASSSLINE 


0000 00000 -ENTRY BASSS$LINE, Save nothing 3 2296 
50 04 ac d0 00002 MOVL =-FMP, RO : 2344 


—— 


BASSE RROR ar O0:25:]5  yanctt Otis tet. Page (2 


FC pp PUSH -4 (RO) , ; 
AB OAF 8 FB 00008 CALLS a, PC_TO_LINE_NO ; 
04 OF RET 3 2345 


; Routine Size: 16 bytes, Routine Base: _BASSCODE + 02A8 


2 Cd OD Gd Cd GD CD CD CD CD 
oOOODOOO 
oo uw 


Bese Sess SSESsss 


DI et st et et et et ot 


DOOOOVODOVOVODVOVOVOVOONOVO 
AVF WN 0 OO@wevlwn—o 


Roronofory 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


$$ 
i 
5 
i 
s 
95 
i 
00 
3 


ane 


9 
18-Sep-1986 00:23:13 YAX=11 BLisg-32_v4.0-74 p 
VeaSep-986 91:82:58 — EeASRtL SRCSBASERROR 859; 1 29° 453 


ROUT INE BASSSFUNCT ION ( ! Get current function name 


' Current frame 
)= 


+¢ 

FUNCTIONAL DESCRIPTION: 
Get the name of the function now in execution. It is 
obtained from the BSFSA_PROC_ID field of the frame. 
The format depends on the frame type. for the types 
which have no name, the “‘name’’ is returned as a Line 

er, and the caller expects this. In other cases, 

the name is returned as a pointer to a counted string. 

FORMAL PARAMETERS: 


FMP.ra.v Address of the frame from which we want the 
unction name. 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
The function name, as a pointer to a counted string for 
main procedures, subprograms, externa: functions, DEFs 
and DEF*s. The name is returned as a 32*vit Line number 
for GOSUBs and condition handlers. 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 


BEGIN 


MAP 
FMP : REF BLOCK CO, BYTE] FIELD (BSFSFCD); 
RETURN CASE -FMP CBSFSB_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 
BSF $k PROC MAIN, BSFSK_PROC_SUB, BSFSK_PROC_EXTF, BSFSK_PROC_DEF, BSFSK_PROC_DEFS) : 
FAP CBSF$A PROC 1 : 
(BSF §k_PROC GOSB, BSF$K_PROC_ONER, BSFSK PROC 10.) : 


LINE_NO (.FMPT .FMP CBSF$A PROC ID 
COUTRARGET : 6 3 


E 927 2403 1 END; 
| 
| 0000 00000 ae 
, §? SAE BO Bonne ne 
00 get tt OR 


50 Bs p08 CLRL 
001D RET 
50 E8 AO DO OOOIE 28 MOVL 
04 B05 RET 
E8 AO DD 00023 38 PUSHL 
50 DD 00026 PUSHL 
FF7D =sCF 02 FB 00028 CALLS 
04 0002D ET 


; Routine Size: 46 bytes, Routine Base: _BASSCODE + 0288 


Ss 


_pagteenon iSeseo-t9ge 90:25:13 


Save yom 


7(R0), # 
ihe 


bed 
Q 

— 

~ 


—~—— e 
PARPAMHM 


ps] 
GDAOPMAAM 


-24(RO), RO 
=24(RO) 


R 
#2, PC_TO_LINE_NO 


K-11 Bliss-32 v4.0-7 
BASRTL.SRC JBASERROR.B 


! of BASSSFUNCTION 


3851 


9° (185 


3398 


2398 
2400 


2403 


ee 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Ge Ge Se Ge Se Se Se Se Ge Ss Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Ge Se Ge SH Se Se Se Oe ee eee 


7] 
ASHE RROR 1E-sep-t964 00:25:15 yayed) OLing=32 v4.0-742 Page 2? 


i ROUTINE VALUE: 
The module name, as a pointer to a counted string. 


WIAA 


yy 4 GLOBAL ROUTINE BASSSMODULE ( ' Get current moduie name 
405 FMP ! Current frame 

1 1 )= 
9 4 'ee 
: “ FUNCTIONAL DESCRIPTION: 
% rt i Get the name of the ule now in execution. It is 
9 tig obtained from the BSFSA_PROC_ID field of the frame. 
et It is returned as a pointer fo a counted string. 
340 415 i FORMAL PARAMETERS: 
bok 4 “19 i FMP. ra.v Address of the frame from which we want the 
ot rt : module name. 
945 9 i IMPLICIT INPUTS: 
st BE lao 
349 4 i IMPLICIT OUTPUTS: 
951 $ NONE 
988 
9 8 
954 9 
9 ; : 

: : 

5 


al inetd tel tel tek ek etek tet ted et ek et et et ek 


SAARI IPINIPIPIPINIMINPIM INN INIIIAI YD a at a st at nd 
- 


9 : 

92 ! COMPLETION CODES: 

33 - 

961 i SIDE EFFECTS: 

ss ice 

Se RRL = 

$6 ot BEGIN 

44 444 P 

44 rae FMP : REF BLOCK (CO, BYTE] FIELD (BSFSFCD); 

376 44 LOCAL 

Bo £e8 BSFSA_MAJOR_STG : REF BLOCK (CO, BYTE) FIELD (BSFSMAJOR_FRAME); 
975 450 '¢ 

378 $33 : Load the pointer to the major procedure's frame. 

978 433 BSFSA_MAJOR_STG = .FMP CBSFSA_BASE_R11); 

oat $32 ! Its procedure information starts with the name of the module. 
982 489 "RETURN (.8SFSA_MAJOR_STG CBSFSA_PROC_INFO)); 

98 458 END; ' of BASSSMODULE 


; Routine Size: 16 bytes, 


Routine Base: 


‘dese eae. mrs] OL fegc32, 140-742 


ENTRY Passage: Save nothing 
MOVL 
e 8 MOVL Te(R0) BSFSA_MAJOR_ST 
ooaB SC b008 mOVL 171 (BSFSA _MAJOR_STG)> R 


-BASSCODE + 026 


va 1S-sen-196e 90:25:15 yarctt BLingc32 ve.0-763 Page 29 


45 ROUTINE HANDLER_HANDLER ( ' Handle unwind for BASSHANDLER 
4 $1G, ' signal args 
4 MECH, i mechanism args 
ENBL ‘variables passed from BASSHANDLER 


)ez 


'e¢ 

! FUNCTIONAL DESCRIPTION: 

i Handle the unwind which is Likely to be done to BASSHANDLER 
by freeing its heap storage. The length and address of the 
heap storage are passed in the third argument to this routine. 


i FORMAL PARAMETERS: 


474 $1G.rl.a Address of the signal vector. This contains 
475 the condition. / 
47 MECH. rl.a Address of the mechanism vector. This contains 
47 the status of the frame that signet tes . 
ENBL.rl.a Address of the enable vector. This contains 


ae 
Se 


~ 
Oo 
—s 

RIPIRIMIAINIAINPINIIIRY 9 3 a a nn nt nn nt nt nt nt ni an nt ak nt at at at at ss oS SS Ss SS SY YS ss 


posaters to the variables used to free the 


PET SEES SSE SES Eo 


WF wt 


SIG : REF VECTOR 
MECH : REF VECTOR, 
ENBL : REF VECTOR: 


signal vector 
mechanism vector 
enable vector 


'¢ 
i First check for the unwinding condition. If it is not, resignal. 


Be Se Be Se Se Se Se Fe Be Se Be Se Ss Se Be Se Ge Se Se Bs Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Se Se Se Se Se Se Se Ge Se Se Se Se Se Gs Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


' 
' 
' 
' 
! 
' 
' 
' 
' 
1 7 
1 ' 
: 
1 ' 
1 ] 
; rt : } eap storage for BASSHANDLER. 
1 4 g i IMPLICIT INPUTS: 
1 4 ! 
1010 4 ! NONE 
1011 485 : 
1 i 4 ! JMPLICIT OUTPUTS: 
1914 ¢ NONE 
1015 489 : 
1917 490 ROUTINE VALUE: 
101 49 ‘ NONE 
1919 49 ‘ 
1031 rh COMPLETION CODES: 
19 4 38 : Always SSS_RESIGNAL, but this is ingored when we are 
3 9 : unwinding. 
1024 4 ‘ 
19 5 +4 SIDE EFFECTS: 
: $ 01 May call LIBSFREE_VM to return storage to the free pool. 
i 
19 5 BEGIN 
19 map 
1 8 
1 09 
1 
1 
1 
1 
1 
1 


PPV PPA AAAI ATI EE 


ot ee tt 
MEW —O 


SEseces 


ro 


| RROR 16-Sep-1 S: AX-11 Bliss-32 v4.0 

"3 16-se0-196 99: gi 4 BASRTL.SRC BASERROR 0 31 
IF ( NOT (LIBSMATCH_COND (SIG C1], ZREF (SSS_UNWIND)))) THEN RETURN (SS$_RESIGNAL); 

'¢ 

i We are unwinding. If any heap storage has been allocated, free it. 
IF (.(.ENBL (2]) NEQA 0) THEN LIBSFREE_VM (REF (.(.ENBL [1])*ZUPVAL), .ENBL (2); 


‘¢ 
a ALL done. 


RETURN (SS$_RESIGNAL); 
END; 


oooc[eo°o 
wr 


! of HANDLER_HANDLER 


SeSe Ge Ge Ge ee SHS Ge Cee eee 
— os — — — _g —) —) ob —* —49 ss 
Oeono 
NononorornorfonoTuTts — 
NOUS WO OOO 


0000 00000 WANDLER HANDLER: 
WORD 


. notes 
7E 0920 «BE $C 9000 HOVZUL #338e, 
—E dD 0000 PUSH 
7E 04 AC 4 C1 444 ADDL i. SIG 
000000006 00 2 F 900 CALLS #2, tebmaten, COND 
50 oc AC DO 00018 MOVL ENOL RO 
0 80 p 001C TSTL  @8(RO) 
1 OO1F 1$ 
08 ad 0 0021 PUSHL  8(RO) 
04 AE 04 B80 02 0024 ASHL #2, a4(RO), 4(SP) 
04 ry: 9F OO02A PUSHAB 4(SP) 
000000006 99 0 FB 900 D CALLS #2 L IBSFREE_VM 
0 0918 BF 3C 00034 1$ MOV2WL #2528, RO 
04 00039 RET 


; Routine Size: 58 bytes, Routine Base: _BASSCODE + 02F6 


29° (13) 


3516 


2522 


9 
Basse mon tb-sep-1964 00:28:15 yal! BLieg=S2 vi. 0-742 


ROUTINE RESTART : RESTART_LINK NOVALUE = 
‘ee 


i FUNCTIONAL DESCRIPTION: 


This is a short routine which restores SP and branches to the 
user's code. It has to be a routine so its address can be 
assed to SYSSUNWIND. 

efore branching to the user's code it POPs any 1/0 that may 
be in progress. 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


BASSA_RESTART.ra The PC to branch to, which wi 
the first instruction of a Li 


SSEeSSTES 


Ll be the 
ne. 


POPU LVIULUSVSUSUSUSV SUIS OSVS OSS 
MFwr 


USI EB 


CONOUEWwIN—O 


ed 
VFWN—oO 


CONVO VUS WO OW 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
Never returns to its ‘caller’ 


oooo o oOOCCCoOCoOoO 
ps ots tt See 
MAM 


$33 


BEGIN 


REGISTER 
FMP : REF BLOCK (CO, BYTE) FIELD (BSFSFCD); 


BUILTIN 
FP, 


SP; 


S333S332 


et et a 
SELES 


oO 
Wwnm 
VSEAFANASSSISEALALRLS 


NP 10 (.FMP); ! POP this frame's 1/0 
SP = .FMP CBSFSA_BASE_SP); ! Restore SP 


.SP = XUPV 
~SP = ,BASSA_RESTART; ' Specify place to go 
RETURN; ' Go there, in effect. 
END; i end of RESTART 


=RIMINININPINYINIPINIPINIPINPIPORY a a nn nr is nk kt nt ik kk tk kk kk tk tt at ot 2 2 
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3 
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3; 1 
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3% 
3 
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3% 
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OOO NNN NNO Oo 


m—Owoo 
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— 


; Routine Size: 


27 bytes, 


52 
000000006 


if 


FB AR 


E 04 
6E€ 00000000" EF 


Routine Base: 


-BASSCODE + 


+4 
‘ 


0330 


“BUFRP 
SP 
aS ecstant, 


oo 


001 


S 


Be 99:80:58 


FP, FMP 
5 ht li 10 


Kk 9 
16-Sep-1984 00:23:13 YAX=11. BLiss~32_v4.0-74 Page 33 
e-Sep-1986 11:54:56 EBASRTL°SRESBASERROR- 059; 1 200 18) 


ROUTINE RESTART_IO : RESTART_LINK NOVALUE = 
te 


‘ee 
FUNCTIONAL DESCRIPTION: 


This is a short routine to call easseeg stant ie when unwinding 
to the beginning of an 1/0 List. No 1/0 popping is done. 


FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

Gets the PC to branch to from BASSSRESTART_IO. 
IMPLICIT OUTPUTS: 


SSSLSSRANLSSSISEALS 


1? al * ah Ah AL AL AL AL AL AL AL AL AL AD AL AD AD AL ALY Al 


My | 

a8 : 

r) 14 1 

3 ’ 

Bi } 

3 8 1 

3 0 1 

: 1 1 

3 ¢ 1 

3 1 

3 4 1 

3 5 1 

3 $ 1 

3 1 

: 1158 oY NONE 

3 0 one 1 

5 1 . 1 ROUTINE VALUE: 

3 5 605 1 NONE 

3 O86 i 

: 5 60 1 COMPLETION CODES: 

3 608 1 

: 609 1 NONE 

3 8 610 1 

3 39 611 1 SIDE EFFECTS: 

; 40 oi¢ 1 

: 41 61 1 Never returns to its ‘caller’ 

3 ¢g 614 1 

3 4 615 1 - 

3 1144 616 1 

3 45 617 BEGIN 

3 $8 618 

3 4 619 REGISTER 

3 re ost FMP : REF BLOCK (CO, BYTE) FIELD (BSFSFCD); 

3 50 6 § BUILTIN 

: 2) 6 4 ep: 

3 3g 625 

s 33 6 § FMP = FP; 

3 5 6 SP = .FMP CBSFSA_BASE_SP); ! Restore SP 

3 28 628 SP = .SP - % : 

3 115 629 ~SP = BASSSRESTART_IO (); ' Get place to go 

3 58 630 RETURN; ' Go there, in effect. 

3 1159 631 ND; i end of RESTART_10 
50 5D DO 00000 RESTART_10: | 

MOVL FP, FMP 2 s6s¢ 

5E F8 AO DO 00003 MOVL =-8(FMP), SP > 2607 | 


A  — 


aie mae mH Uta Mak 248,, dt 


estemno 


000000006 60 03 i sh cALL ms: Bh BASSSRESTART. 10 | : 3655. 
05 0001 


4 RSB 2631. 
; Routine Size: 21 bytes, Routine Base: _BASSCODE + 0348 


o 
wr 


Ss 
WMO OONOULS WN —OO0OW 


S 


ooo 
Wn— 


me me ee ee ee a ee ee ek ee ek ee ed nd ed od od = = wd wd 
SeS3o5 
Go wn 


PIPVNPIPININIPIPIPPIMINDMINIMININY) 2 at at tt at a a tt at ot a oo 


Ss ee 


NOUEWN Oo 


SS SOC SS SS. 


Ft te 


MEW OO OONOUS wr 


oO 


POAARACAAAOAO 
QMO 
SOOWONAOUSWIN—O 


AAPA AAAA AAO AAAAAO 
COCOONS 
NOME WN $0 OONOUS Wl 


688 


a em a a a a a aaa i a a at od oe = = = = 8 os YS = 2 2 8 


a 9 
16-Sep-1984 Ax-11 Oi tog -32 v4.0 
la-Sep- 198 90: §7: 3 BASRTL. SROd BASERROR. “333, 
ROUTINE BASSSUSER_HAND ( ! interface to user's Genete ten handler 
ERR_CODE, ! BASIC error code 
FMP ' user's frame 
ny LEVEL i level to unwind 
ee 


FUNCTIONAL DESCRIPTION: 


i IMPLICIT OUTPUTS: 


Try to pass a SIGNALed condition to the BASIC user's program 
for processing. 


i FORMAL PARAMETERS: 


ERR. CODE.rl.v The BASIC error code that is being signaled. 

FMP orl.v Pointer to the frame of the BASIC program 

LEVEL. el. v Number of levels to unwind to get to the 
current frame of the BASIC program. 


i IMPLICIT INPUTS: 


BASSL_ERRFLG ? if no error in progress, 1 if an error is 
in progress. 


BASSL_ERRFLG fet to 1 while we are doing error processing. 


BASS$L-ERL The mi. fi number being executed when the error 
occu 

BASST_ERN The nene of the module in which the error 
secure 

BASSL_ERR he Basis error number now being orecensed. 

HIGHEST_LEVEL If ON ERROR GO BACK, the level to UNWIND 


if a lower level does a RESUME with no i. 


number. 
HIGHEST_FMP If ON ERROR GO BACK, the frame to UNWIND to 
if a lower level does a RESUME with no Line 


number. 
ACCUM_LEVEL If ON ERROR GO BACK, the number of \pvets above 
which must be unwound throu h if a lower 
level does a RESUME with a line number. 
UNWIND_ COUNT If non-zero, phe number of levels to UNWIND 
when we get back to the top level call of 
BASSHANDLER. 


i RuUTINE VALUE: 


USER_HAND_CONT (=0) => The user has processed the error condition, 
continue from the point of error (or from an unwind). an 

ered is needed, UNWIND COUNT is set for the highest level 
andler. 


USER_HAND_BACK (=1) => The user is not prepared to handle 
the @rror-at this level, but he may be able to handle it at a 
deeper level. Revert. 


USER_HAND_FAIL (=2) => The user demands system processing of 


;1 


29° (435 


eso 


; 121 689 


708 


SBE EEE EE NAN NNAIINIRNINNNNNN 


MIMVPSMPPoNPoPfofnofnofnon 
=O OONAWVE WN 0 ODA WN  O OONOUE WN “OVO ONOUES WN Oo 
SOOWONAOUEWN (OO VONOULS WOO 


API PITUNIPUNINONINID 2 tO 


PAEQEAAMMAANI nn 


MMrononons 


wn 
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SS NN 


WnN— 
De et ee eh nb oh eb ahah eed 
PWN COONS wr 
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ee a a et a a ek a a a ak tk tk td a at ot ot ot ot Ss a I SS SS OS St SS OS SS 
™~ 
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Rororonorononofopfoferrn 


PN RP Ae Se 


~ 
= 
wn 
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| 


REPDPINPIPIPO EPIPINI WHI EEPOPINIPUPINININIPININININININININININININININININNININNININ 3 2 Ot Ot ot So 
. . . 


N 
1eo$ep-198¢ 11:54:56 EBASRTLSRe TBASERROR 


this error; do not test Songer levels. Revert and do not call 
BASSSUSER_HAND again for this error. 


] 

1 

i 

| COMPLETION CODES: 

NONE 

; SIDE EFFECTS: 

May call user code. 
i] 


BEGIN 
LITERAL : 
K_MAJOR = 1, ‘A major frame 
K_MINOR = 0; !A minor frame 
MAP 
FMP : REF BLOCK CO, BYTE] FIELD (BSFSFCD); 
LOCA 
MOD _NAME 


ADDR, 
NON-GOSUB_FMP : REF BLOCK CO, BYTE] FIELD (BSFSFCD), 
USER Wand VAL. 


ONER~RESU 

BSFSA_MAJOR.STG : REF BLOCK [O, BYTE] FIELD (BSFSMAJOR_FRAME), 

BSFSA-MINOR-STG : REF BLOCK (CO, BYTE] FIELD (BSFSMINOR_FRAME), 
T_FMP : REF BLOCK (CO, BYTE] FIELD (BSFSFCD), 

THIS"FMP : REF BLOCK CO, BYTE] FIELD (BSFSFCD), 

MAJOR_OR_MINOR, 

SEARCA_DONE; 


BUILTIN 
FP; 


'¢ 

! If the severity is “‘error’’ or ‘‘warning’, let the compiled code 

! intercept the error, if it has requested to do so. Note that 

! we must check the severity table rather than the condition value 
since LIB$STOP forces the severity to ‘‘severe error’. 


IF ((.ERR_SEVERITY C.ERR_CODE) NEQ STS$K_ERROR) ' 
AND (TERR_SEVERITY CTERR_CODE] NEQ STS$K_WARNING)) 


N 

RETURN (USER_HAND_FAIL); 
IF (.BASS$L_ERRFLG NEQ 0) 
THEN 


'¢ 
! The user has committed an error or said ON ERROR GOTO 0 durring 
: error processing. Demand system processing. 


RETURN (USER_HAND_FAIL); 


"693.1 


SRELNVLSSSLSEALALS 


nm 
~o 


SSSSSSSSSBBB 


Be Se Se ee Be Se Be Se Ge Se Ge Ge Se Se Ge Ge Be Se Be Se Ge Ge Se Se se Gs Ge Ge Ge Se Se Se Se Se Ge FH Ss Ge Se Se BH Se Se Se Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge ee 

te 4 ss 4 bs 4 4 4 bh 4 4 > a ss Ls ss 9 2 ss tn 4 ss i in es — 9 9 — > as — 5 es ss — 4s is 5 a 
LANA ALAIN AAW 

WIAIRROPONPONMUNUNIY 2 2 a a Ss 

—OO@wNO UN FWN "OO NOuewh)-0O0 wnr— 


AAW 


—_—-— -—__ —-— 


easepaioee iikerse | Feasnre $keSeasennon.os9.1 


rg If (.BASSL_GOING_BACK NEG 0) 
oe HEN 
‘+ 

749 We are one BASIC level deeper in ON ERROR GO BACK processing 
751 4d by 
7 § BASSL_ERRFLG = 1; 
7 ACCUM-LEVEL = .ACCUM_LEVEL + .LEVEL; 
754 END 
755 ELSE 

7 § '¢ 

4 This is the first time we have seer this error. Set things up. 

Fag BEGIN 

760 

761 '¢ 
76 : only set ‘going_back® if this is not a restartable error, i.e., 

76 ' not err=50 (data format error) and not err=52 +oneget number). 

764 ! This statement may need further conditionalization if more 

re? : restartable errors are added. 

76 BASSL_GOING_BACK = ( IF (( .ERR_CODE EQL 50 ) OR ( .ERR_CODE EQL 52 )) 
768 4 THEN 0 

44 ELSE 1); 
771 BASSL_ERRFLG = 1; ! error in progress 

77 BASSA_CH_CUR_LN = .FMP CBSFSA_MARK]; ! remember default restart PC 
77 BASSL_ERC = BASSSLINE (.FMP); ' compute default restart Line number 
774 MOD EA = BASSSMODULE (.FMP); 

775 BASST_ERN CDSCSA_POINTER] = .MOD NAME_ADDR + 1; 

776 BASST_ERN COSCSW_LENGTH) = .BLOCR C.MOD_NAME_ADDR, 0, 0, 8. 0; 1, BYTE); 
777 BASST_ERN [CDSC$B_CLAS } = DSCSK_CLASS_S; 

778 BASST_ERN CDSCSB_DTYPE] = DSCSK_DTYPE_T; 
779 BASSL_ERR = .ERR_CODE; 

780 HIGHEST_LEVEL = “LEVEL; 
781 HIGHEST FMP = .FMP; 

782 ACCUM_LEVEL = .LEVEL; 

8 D; 

784 

785 '¢ 

786 ! Fetch the current value of BSFSA_USER_HAND. 

4 tA We must first dig back to the first non-GOSUB frame. 

789 NON_GOSUB_FMP = .FMP; 

7 SEARCH_DONE = 0; 

791 

79 DO 

at, BEGIN 

re 4 ££ MOM _GOSUS_/OP CBSFSA_HANDLER] EQLA BASSHANDLER) 

79 

as IF (.NON_GOSUB_FMP CBSFS$B_PROC_CODE] NEQ BSFSK_PROC_GOSB) THEN SEARCH_DONE = 1; 
o9 ; IF ( NOT .SEARCH_DONE) 

02 4 BEGIN 


oo - _ —_———___—_ —_ ——— 


BASSE RROR 16-500-1984 90:93:13 rete Bliss-32 NRO 35:1 Pose it 
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NON_GOSUB_FMP = .NON_GOSUB_FMP CBSFSA_SAVED_FP]; 

i (.NON_GOSUB_FMP EQLA 0) 
* HEN 
i We have been unable to find a non-GOSUB frame. This is quite 
: unreasonable. Force system handling on this error. 


RETURN (USER_HAND_FAIL); 


(ASF Sk PROC_MAIN, BSFSK_PROC_SUB, BSFSKPROC_EXTF, BSFSK_PROC_DEFS] : 


BSFSA_MAJOR_STG = .NON_GOSUB_FMP [BSFS$A_BASE_R11); 
USER_RAND VAL = .8SFSA-MAJOR-STG CBSFSA_USER-HAND); 
BAJOR_OR_AINOR = K_MAJOR; 


o 


PAAAMAMVIUI 


CBSFSK_PROC_DEF) : 
BEGIN 


BSFSA_MINOR_STG = .NON_GOSUB_FMP [BSFS$A_BASE_R10); 
USER_RAND VAL = .BSFSA-MINOR-STG CBSFSA-USER-HAND); 


—_ 

WruT 

(2 08 Ge Go Ge Ge Ce Go Ge Ce Ge Ge 05 Go Ge C5 Go Ge Co Go.Ge > Ge Go Ce Ge G0 Ce OB 
SReuenro 


WNAAWMA AAAI PPONINONI NINN 2 2 OO Oe 


: BAJOR_OR_AINOR = K_MINOR; 

8 . 

8 CBSFSK_PROC_IOLJ : 

8 GIN ! Don't let error handling go beyond the immediate code 
8 USER_HAND_VAL = 0; : 
: END; 

84 CBSFSK_PROC_GOSB, BSFSK_PROC_ONER, OUTRANGE) : 

a USER_HAND_VAL = 0; ! this should never happen 

84 eo 

84 IF (.USER_HAND_VAL EQL 0) 

84 es THEN 

Bc i The user has specified (or defaulted to) system error handling 

84 for any errors. Revert and don't call BASSSUSER_HAND again. 


RETURN (USER_HAND_FAIL); 
IF (.USER_HAND_VAL EQL 1) 
THEN 
ee BEGIN 
i The yser has specified ON ERROR GO BACK. Revert but do call 
! BASSSUSER_HAND again. Note that GOSUBs get unwound one at a 


! time by this mechanism, but we will make the same decision 
me because the frame is marked for an immediate 


me a aa a a kk a nk a a ck et td i“ a as — 2 2 


4 
6 
5 
4 
& 
4 
4 
. 
4 
4 
END; 
UNTIL (.SEARCH_DONE) ; 
sna” ; wmsenciee, dont CBSF$B_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 
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16-Sep-19 2:23:13 AX-11 Bliss-32 vV4.0-74 P 9 
12-308-138¢ 90:92:13 EBASRTL SRE BASERROR.B32;1 age 435 
! ON ERROR GO BACK. 
; BASSL_ERRFLG = 0: 
RETURA (USER_HAND_BACK); 


'¢ 
! The user has specified an entry point in this frame for error 

: process ne. We call his code as a modified GOSuUB. 

: urther system processing depends on how the user's code terminates. 
ONER_RESULT = BASSINIT_ONERR (.NON_GOSUB_FMP, -USER_HAND_VAL); 


SELECTONEU (.ONER RESULT) OF 


ro CUSER_ERR_RSUMZ) : 
i Tae condition handler ended with a RESUME with no Line number. 


: Unwind to the frame in which the signal happened and restart 
: the statement. 


BASSL_ERRFLG = 0; 
BASSA_RESTART = .BASSA_CH_CUR_LN; 

Ss . 

NG BACK = 6; 

- UNWIND_COUNT = .HIGHEST_LEVEL; 
i The compiler should not permit a module to exist with RESUME with no 
: Line number and /NOLINE, but check for that case here and give an 
error message. 
IF (.BASSA_RESTART EQLA 0) THEN BASS$S$STOP (BASS$K_PROLOSSOR); 
IF (.HIGHEST_LEVEL EQL 0) 


BEGIN 
'¢ 


i Rather than doing an unwind to 0, search through the frames and patch 
: the return PC. 


THIS_FMP = .FP; 


BEGIN 
NEXT_FMP = .THIS_FMP; 
THIS-FMP = .THIS-FMP CBSFSA_SAVED_FP); 


£ 
UNTIL (.THIS_FMP EQLA .HIGHEST_FMP); 
NEXT FP (BSFSA_SAVED_PC) = RESTART; 


RETURN (USER_HAND_CONT); 
END; 
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1bese “19 :23:13 AX-11 Bliss-32 V4.0-74 
14 att 90:82:12 EBASRTL SRe BASERROR.B32;1 
ie CUSER_ERR_GOBK) : 
i The condition handler ended with ON ERROR GO BACK. Revert but 
' continue to call BASSSUSER_HAND. However, this frame is marked for 
! an immediate ON ERROR GO BACK in case we are in a GOSUB: we don't 
want to call the user's error handler again. 
; BEGIN 
BASSL_ERRFLG = 0; 
sana | tate oa tema FROM K_MINOR TO K_MAJOR OF 
CK_MINOR] : 
BSFSA_MINOR_STG CBSFSA_USER_HAND] = 1; 


CK_MAJOR] : 
BSFSA_MAJOR_STG CBSFSA_USER_HAND) = 1; 


RETURN (USER_HAND_BACK); 
END; 


. CUSER_ERR_OEGZ) : 


i The condition handler ended with ON ERROR GOTO 0. Revert but 
} force system handling for this error. 


BEGIN 
CASE -MAJOR_OR_MINOR FROM K MINOR TO K_MAJOR OF 


[K_MINOR] : 
BSFSA_MINOR_STG CBSFSA_USER_HAND] = 0; 

CK_MAJOR) : 

TES BSFSA_MAJOR_STG CBSFSA_USER_HAND) = 0; 


RETURN (USER_HAND_FAIL); 
END; 


ne COTHERWISE) : 


i The condition handler ended with a RESUME with a Line number. 
: Unwind to the current frame and restart at the indicated PC. 


BEGIN 
BASSL_ERRFLG = 0; 
BASSA-RESTART = .ONER_RESULT; 
BAS$A~CH_CUR_LN = 0; 
BASS$L~GOING BACK = 0: 
UNWIND_COUNT = .ACCUM_LEVEL; 
IF (LEVEL EQL 0) 
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ae 
1e-Sep-1986 $1:84:5 
THEN 

BEGIN 


'¢ 


AX-11 Bliss-32 V4.0-74 
BASRTL.SRC JBASERROR.B32; 1 


i Rather than doing an unwind to 0, search through the frames and 


patch the return PC. 
THIS_FMP = .FP; 


DO 
BEGIN 
NEXT_FMP = .THIS_FMP; 
THIS? FMP = .THIS-FMP CBSFSA_SAVED_FPI; 
UNTIL (.THIS_FMP EQLA .FMP); 
NEXT_FMP CBSFSA_SAVED_PC] = RESTART; 
END; 
RETURN (USER_HAND_CONT); 
END 
TES; 
END; ! of BASSSUSER_HAND 
007C 00000 BASSSUSER_ HAND: 
-Q@ORD Save R2,R3,R4,R5,R6 
56 9E 0000 MOVAB ERR SEVERITY, R6 
00000500" EF 9€ 0000 MOVAB BASSL_ERRFLG. R5 
50 $6 9E 000 MOVAB’ ERR mate RO 
02 04 BC40 91 0001 CMPB =. @ERR_CODECROS, #2 
06 13 0001 BEQL si 
04 Bc40 95 0001 TSTB © @ERR_CODECROJ 
02 12 0001C BNEQ 
DS OOO1E 1$ TSTL SSL_ERRFLG 
13 00020 2$ BEQL ;. 
013¢ 31 000 BRw 
65 1 00 00025 38 MOVL BASS$L_ERRFLG 
2c a3 p 00 8 st m8 _GOING_BACK 
Oc AS oc AC ( 6 p ADDL2 LEVEL, ACCUM_LEVEL 
54 0 BRB 
32 04 AC D1 034 4$ CMPL RR_CODE, #50 
06 3 0 BEQL $* 
34 04 AC 01 O003A CMPL  ERR_CODE, #52 
94 12 000 BNEG 6$~ 
: ps 40 5$ CLAL RO 
1 BRB 7$ 
5 1 »D 4 6% MOVL #1, RO 
2c A 0 D 7 7$ MOVL RO, BASSL_GOING_BACK 
5 08 aC D 9 B MOVL R 
28 OA FC Ae OD AF MOVL  =4(R2), BASSA_CH_CUR_LN 
52 DD 00054 PUSHL  R2 
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Bee 82:83 | HaMsAT Obke seks ketal o$3.1 


#1, BASSSLINE 
RQ, BASSL_ERL 


#1, BASSSMODULE 
1(R0), At ERNSG 
(MOD _NAME 

#2 BASST_ERN¢2 
ERR € $i 
LEVEL HIGHEST CEVEL 
R2, HIGHEST FMP 
LEVEL, ACCUM LEVEL 
FMP, NON GOSOB_FMP 
SEARCH 


DONE 
BASSHANDLER, R1 
(NON_GOSUB_FMP), 1 


1 
=37 (NON. GOSUB,FRP) rT 
#1, SEARCH_DONE 
SEARCH_DONE, 11$ 
(NON~GOSUB_FMP) NON_GOSUB_F MP 
SEARCH DONE, 9$ 
=27(NON_GOSUB_FMP), #1, #7 
13$-12$-- 
13$-12$.- 
13$-12$.- 
14$-12$.- 
13$-12$.- 
15$-12$.- 
15$-12$.- 
HS 
+13 (NON GOSUB_FMP), BSFSA_MAJOR_STG 
127(BSFSA_MAJOR STG), USER_HAND~VAL 
+A MAJOR_OR_MINOR 
-16(NON_ GOSUB_FMP), BSFSA_MINOR_STG 
127 (Bsr SA MINOR_STG), USER_HAND-VAL 
MAJOR_OR MINOR 
USER_HAND_VAL 
YSER_HAND _VAL 
USER_HAND_VAL., o 
SS$L_ERRFLG 
5$ 
“M<RO,R1> 
#2, BASSINIT_ONERR 
QNER RESULT 
BASSL_ERRFLG 
BAS$SA~CH_CUR_LN, BASSA_RESTART 
BASSA~CH”CURTLN 
HIGHEST CEVEC, UNWIND_COUNT 
BASSA_RESTART 


| 
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RROR 1 b-3e -1984 3: A¥-11 Bliss-32 V4.0-74 Pp 43 
or expert aee Pees ees tae Seacennon.o39;1 age 45) 
| 9 12 001 BNEQ : 

7E 006 8F 9A O010F MOVZBL im PROLOSSOR, -(SP) : 
Fo9C—OsC«CEF 1 F 1 CALLS SS$$STOP : 
04 A’ p 118 19%: STL HEST sre VEL + 2896 
7 118 BNEQ ; 
1 30 DO 0011 MOVL Is. + 2903 
° oc At BO OOISS owt Ths, in ins. thts. FMP 2 $308 
08 AS 31 D1 001 CMPL THis. FMP, 1GHE HEST_FMP : 310 
f3 : 128 BNEG : 
01 25 bt OO1Se 218: RPL eR “RESULT, #1 : $3} 
is hs 132 BNEQ et : 
$ D4 001 CLRL BASSL_ERRFLG : 926 
01 00 4 CF 001 CASEL MAJOR-OR TMINOR, #0, #1 + 29 
000A 0004 013A 228 . WORD a 3 
7F oA y 20 136 238: MOVL #1, 127(BSFSA_MINOR_STG) : 2932 
1 14 BRB 5$ : 
7F) Oa 1 0900144 248: Mov. #1, 127(BSFSA_MAJOR_ STG) + 2935 
50 1 De 0148 25$: MOVL #1. R : 2938 
4 00148 RET : 
02 50 D1 O014C 268: CMPL QNER_ RESULT, #2 + 2941 
14 12 O14 BNEQ 1$ : 
01 00 54 CF 00151 CASEL MAJOR_OR_MINOR, #0, #1 + 2948 
0009 6004 0155 278: WORD aot: 7.5 : : 
7F OR b4 00159 28$ CLRL 7(BSFSA_MINOR_STG) + 2952 
- 0 ' 0015C BRB 3 
7F = AS. 04, 0015 E 298 :  CLRL 127 (BSFSA_MAJOR_STG) > 2955 
50 02 DO 90161 30$: MOVL : 2958 
04 00154 RET ; | 
65 D4 00165 318: CLRL  BASSL_ERRFLG > 2967 
30 =AS 50 0 gore! MOVL ONER RESULT BASSA_RESTART 3: 2968 
8 AS 7C 00168 CLRO BASSI CH_CUR_LN > 296 
10 AS . Ss oss MOVL ACCUM_LEVEL, UNWIND_COUNT : 2971 
OC AC D5 0017 TSTL ar : 2973. 
16 1 0176 BNEQ 4$ : 
51 5D DO 0017 MOVL HIS_F + 2980 
50 51 O78 328 MOVL 44 nis. FMP NEXT FM + 2984 
51 Oc Al 00 7 MOVL 1DGRIS FMP), THIS. FMP + 2985 | 
08 AC 51 } 4 CMPL THIS_FMP, FMP 3 2987. 
F312 001 BNEQ 32$ F 
10 Ad FEG4 cf 9 91 338: MOVA RESTART, 16(NEXT_FMP) : $583 
be 00196 RET : 2997 
3; Routine Size: 401 bytes, Routine Base: _BASSCODE + 0360 


; 1527 2998 1 


| 
| 


10 
ASSERROR rhage -1984 00:23:13 AX-11 Bliss-32 V4.0-74 Pa 44 
BASSE 12-808-} She 90:83:33 YBASRTL SRE BASERROR.B32;1 9 16) 
999 GLOBAL ROUTINE BASSRESUME ( ' end of error handler 
NEW_PC ! where to restart 


wr 


'ee 


i FUNCTIONAL DESCRIPTION: 


uw 


Resume execution from an error handler. The compiled code 
calls RESUME passing the address of the location at which 
to cont a execution. We must be in an error handler. 
The stack is cut back to the call to BASSINIT_ONER which 


SSIFAFANLSS 


sss 
wo 


POP PVLV LV IVIVLVSVSVSVIVSVSIVSV SII 


3 1 

3 1 1 

3 1 1 

3 1 1 

i] : 

31 1 

3 1 1! 

3 1 & 

3 1! 

3 1 1! 

: 1540 $19 os is in BASSSUSER_HAND and the RET at the end of this routine 
3 1541 ny 9 actually returns from BASSINIT_ONER. This is similar to 
3 1 ¢g aig 1! OSUB process ing. To simplify the restoring of registers 
3; 154 mee BASSINIT_ONER saves them all, so the return to BASSSUSER_HAND 
3 , r¢} Bie } } restores them. 

: 1 re BI8 ii If necessary, GOSUB frames are removed looking for the 

3; 154 017 1! condition handling frame, but if another type of frame 

3 1 re 018 1! is encountered we have an error. f there is no error 

3 156 019 1! pending then the RESUME is turned into a GOTO, for 

3 ; 29 | , : } compatability with BASIC-PLUS. 

> 155 022 1 | FORMAL PARAMETERS: 

3; 155 0 1! 

3 1338 3 : ' NEW_PC.ra.v The location at which to continue execution. 
; 1356 9 5 i IMPLICIT INPUTS: 

a ae a] 

> 1560 030 1! IMPLICIT OUTPUTS: 

; 1561 031 1! 

; 156 032 1: NONE 

; 1368 038 1 

3 1564 0 1 ! ROUTINE VALUE: 

3 1565 035 1! 

3 1398 036 1! The resume PC. This is returned to the caller of BASSINIT_ONER, 
3 + t4 03 ' which is presumed to be BASSSUSER_HAND. 

> 1569 0 3 1 | COMPLETION CODES: 

3; 1570 040 1! 

3 13et 041 : NONE 

: 1898 be 1 | SIDE EFFECTS: 

3 1574 0464 1: 

3; 1575 045 1! May cut back the stack, thus not returning to the caller. 
3 1378 peg 1! If it does return, it is not to the call site but to the 
3 137 Bee : : location specified in the parameter. 

: 1899 049 1 in 

: 1580 050 1 

: 138! Be BEGIN 

: 1888 088 BUILTIN 

3: 1584 054 FP; 

; 1585 055 
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LOCAL 


iis 


Sep-198e 11:80:56 EBASR 


FMP : REF BLOCK (CO, BYTE) FIELD (BSFSFCD); 


‘+ 
! If there is no error being processed 
; return address and return, thus turn 
. a . . 


te 
IF (.BASSL_ERRFLG EQL 0) 
THEN 
BEGIN 
FMP = FP; 
FMP CBSFSA_SAVED_PC) = .NEW_PC 
RETURN (0)3 


'¢ 


in 


stu 
gt 


ff the parameter into the 
he RESUME statement into 


1 
TL 


nie 


! the value will be ignored 


Dig back through GOSUB frames to find the condition handling frame. 


FMP = .FP; 
FMP = .FMP CBSFSA_SAVED_FP); 


nana | ann CBSFS$B_PROC_CODE] EQL BSFSK_PROC_GOSB) DO 


FMP = FMP CBSFSA_SAVED_FP); 


i CBSFSA_HANDLER] NEQA BASSHANDLER) 


'¢ 


i The previous frame is not a BASIC frame. 
' began precese ing an error, called a non-BASIC routine which called 


' a BASI 
kind of poorly-structured code. 


BASSSSIGNAL (BAS$K_RESNO_ERR); 


'¢ 


This means that the user 


routine which tried to dismiss the error. Disallow this 


Deallocate any heap storage that may be held by this frame. 


BASSSUNWIND (.FMP); 
END; 


'e 


i we have finished cutting back the GOSUB frames. Now be sure we are 


in the condition handler. 


If (FMP CBSFSB_PROC_CODE] NEQ BSFSK_PROC_ONER) 


'¢ 


i We are not. This can happen if the user beging processing an error 
: een calls another routine which tries to d 


isallow this, also. 
BASSSSIGNAL (BASSK_RESNO_ERR); 


smiss the error. 


=32 V4.0-74 
BASERROR .B32;1 
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k 10 
i 1e-Sep-198e 11:84:56 EBASRTLCSRESBASERNOR 039; 1 


+ 

We have reached the condition Benet 199 frame. By stuffing the 
inter to this fr into FP we e Foctively cut back the stack, 

since this routine's RET will then return from the condition 

handler, Note that we are not restoring any registers; we depend 

on the fact that BASSINIT_ONER saves them all, so the RET we are 

about to do will restore registers for BASSSUSER_HAND. 


BASSSUNWIND (.FMP); 
FP = , 


rSSSSSS3 


DONO VLSWN "OOONOUE Ww 


rning a number whose unsigned value is greater than 2 
fete to oe SUSER_HAND that the user has written RESUME 
ne number. 


RETURN (.NEW_PC); 
END; 


retu 
indi 
ha 
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! of BASSRESUME 


000¢ 00000 .ENTRY BASSRESUME, Save R2,R3 
53 000000006 00 i 90002 MOVAB BASSSUNWIND, R3 
00000000' bh ‘ 90008 iste BASSL_ERRFLG 
a D 6 99011 MOVL FP, FMP 
10 A 04 AC D0 0014 MOVE NEW_PC, 16(FMP) 
5 5D D0 00018 1$ MOVL FP, FMP 
5 oc A b0 OO1g MOVL 1gteMp) FMP 
06 E5 Ae 91 99 28 CMPB 40s «= 27 (FMPS, #6 
2 12 0026 BNEQ 6 44 
52 0c A2 00 00028 MOVL 12(FMP), FMP 
50 000000006 0 9 000 MOVAB BASSHANDLER, RO 
50 62 D 900 CMPL (FMP), R 
9 13 900 FaL «= 38 
7E 006 8F 9A 000 MOVZBL #BASS$K_RESNO_ERR, -(SP) 
FCCE CF o1 FB 999 ¢ CALLS #1, BASSSSIGRAL 
2 DD 00041 38 PUSHL 
63 01 FB 0043 CALLS #1, BASSSUNWIND 
DA 1 0046 BRB 
07 E5 A 1 0048 4$ CMB -27(FMP), #7 
7E 006 8F 9A 0004 MOVZBL M#BASS$K_RESNO ERR, -(SP) 
FCB8)=sCCF 1 FB 05 CALLS #1, BASSSSIGNAL 
é DD 00057 5$ PUSHL fF 
$3 Q FB 0059 CALLS #1, BASSSUNWIND 
D 2 pO 0005¢ MOVL , 
50 04 AC 00 O05 MOVL § NEW_PC, RO 
4 00063 RET 
50 D4 00064 6$: CLRL = RO 
04 00066 RET 
; Routine Size: 103 bytes, Routine Base: _BASSCODE + 04F1 
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-Sep- 4:56 BASRTL.SRC JBASERROR.B 
5 196 } 1 } GLOBAL ROUTINE BASSRESUME_7 = ! Resume with no Line number 
3; 16646 1 : 1 S44 
: 1993 ; 2 ! } FUNCTIONAL DESCRIPTION: 
; 1869 1 § 1! Resume execution from an error handler. The compiled code 
3 1998 1 1} calls RESUME_Z to indicate that the statement in which the 
3; 166 138 7 $ error occurred is to be restarted or continued. (Which 
; 1670 139 1! depends on which error is in prepress. 
; 1671 140 1! The stack is cut back to the call to BASSINIT_ONER which 
3 1076 141 1! is in BASSSUSER_HAND and the RET at the end of this routine 
3; 167 196 1} actually returns from BASSINIT_ONER. This is similar to 
3; 1674 1435 1! GOSUB process ine. To simplify the restoring of regiszers 
; 1675 144 1! BASSINIT_ONER saves them all, so the return to BASSSUSER_HAND 
; \ore 137 : restores them. 
; 1678 123 1! If necessary, GOSUB frames are removed looking for the 
: 1679 148 1! condition handling frame, but if another type of frame 
; 1680 149 1! is encountered we have an error. 
; 1681 150 1! 
: 1on¢ 151 1°! FORMAL PARAMETERS: 
3; 168 13¢ 1! 
> 1684 153 1! NONE 
3; 1685 154 1! 
3; 1686 155 1°! IMPLICIT INPUTS: 
3; 1687 156 1! 
; 1688 i eS NONE 
3: 1689 158 1! 
3; 1690 159 1°! IMPLICIT OUTPUTS: 
: 1691 160 1! 
; 1o38 161 1! NONE 
3; 169 166 1! 
3 1694 165 1 ! ROUTINE VALUE: 
3; 1695 164 1! ee : 
3; 1696 165 1! USER_ERR_RSUMZ, to indicate to BASSSUSER_HAND that the user did 
3 1697 166 1! a RESUME with no Line number. 
3; 1698 167 1! 
3; 1699 138 1 ! COMPLETION CODES: 
3; 1700 169 1! 
3; 1701 ve 6G NONE 
; 1708 1771 17! 
3; 170 ive 1 ! SIDE EFFECTS: 
3: 1704 173 1! ; 
3; 1705 174 =«1« Cuts back the stack, thus not returning to the caller. 
3; 1706 176 17! 
3; 1707 176 1 !-- 
3; 1708 177 (1 
3; 1709 178 BEGIN 
3 1710 17 
3 1711 180 BUILTIN 
3 Ar 181 FP; 
3 171 is 
3 1714 1 LOCAL 
3 1715 184 FMP : REF BLOCK (CO, BYTE) FIELD (BSFSFCD); 
3 vie 137 
3; 171 1 § '¢ ’ ; 
3; 1718 18 ! If there is no error being processed, the RESUME statement without 


N 10 
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— 


} a line number is invalid. 


IF (.BASSL_ERRFLG EQL 0) THEN BASSSSIGNAL (BASS$K_RESNO_ERR); 

¢ 

! If we are not in the same program unit as the source of the error, 
we have an error. This is done for compatability with the PDP-11. 


FMP = .FP; 
FMP = .FMP CBSFSA_SAVED_FP); 


IF ((BASSSMODULE (.FMP) + 1) NEQA .BASST_ERN CDSCSA_POINTER]) THEN BASS$$STOP (BASSK_ILLRESSUB); 


wWOO000MR 
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AA 


4 
: Dig back through GOSUB frames to find the condition handling frame. 
or CBSFSB_PROC_CODE] EQL BSFS$K_PROC_GOSB) DO 
FMP = .FMP CBSFSA_SAVED_FP); 

ca CBSFSA_HANDLER] NEQA BASSHANDLER) 


' 
! The previous frame is not a BASIC frame. This means that the user 
! began processing an error, called a non-BASIC routine which called 
! a BASIC routine which tried to dismiss the error. Disallow this 
! kind of poorly-structured code. 

BASSSSIGNAL (BASS$K_RESNO_ERR); 


'¢ 
: Deallocate any heap storage that may be held by this frame. 


BASSSUNWIND (.FMP); 
END; 


'¢ 


MIPIM 4 = OS SS COO OOOOOCOCOONO 


! We have finished cutting back the GOSUB frames. Now be sure we are 


APAXPEADAMAM NANI & ee ce 


SN SSS SSS SSS SS SSS 
WN — OS DONO UE WN “OO DNOULS WN —OOW 


Be Be Be Be Se Se Bs Se Se Se Be Be Ge Be Se Ge Ge Fe Se Ge Ge Ge Ge Bs Se Ge Fe Ss Ge Ss Ge FF Se Ge Se Ge Ss Ge SF Se Ge Se Ge oe SF Se Se Se esse Se Sees te tsese 
me ee ee ee ee kk kk et ek et td ot 2 oe = a = = Lc“ SS ot SS Ls ot So SS SY 
POPIPIPIPIPIPOPONYININPININIPYNYININININININPINIPYINIPINPININIPYININININININ 2 


A.A.AIAIAI AIA AAAI ANIA NAW NININIAAI AIAN AWA NIAINIAIAIN AWA AIAN WINN AAAI 


ROPOPIPIPINININININOPININI ATP NIPINININI AAA WI NANNIES AAI AIRPUIPPUNINONINIPYUNINPINIPUNINININININY 


; in the condition handler. 
: IF (. FMP CBSF$B_PROC_CODE] NEQ BSFSK_PROC_ONER) 
o ; oe THEN 
65 ; i We are not. This can happen if the user beging processing an error, 
7 ! then calls another routine which tries to dismiss the error. 
se ; : Disallow this, also. 
188 ; BASSSSIGNAL (BASS$K_ILLRESSUB); 
771 4 '¢ 
4k & ! We have reached the condition handling frame. By stuffing the 
77 4 ! pointer to this frame into FP we effectively cut back the stack, 
774 “ ! since this routine’s RET will then return from the condition 
775 4 ! handler. Note that we are not restoring any registers; we depend 


ee eer oe 


----eCOO - _—— —— —EE 
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: 1776 45 ! on the fact that BASSINIT_ONER saves them all, so the RET we are 
; itt rf ‘ about to do will restore Fegisters for BASSSUSER_HAND. 

; 1738 <8 BASSSUNWIND (FMP) 

: 1730 23 - FP = .FMP; 

: 17 ; 1 i Indicate to BASSSUSER .HAND that the user has written a RESUME 

3 12 ; iw h no Line number 

> 1785 i RETURN (USER_ERR_RSUMZ); 

3 17 55 END; ! of BASSRESUME.2 


001¢ 90000 .ENTRY BASSRESUME_7Z, asave R2,R3,R4 3131 
54 000000006 00 9€ 0000 MOVAB BASSSUNWIND, : 
53 FC9B. CCF 9 000 MOVAB BASS$$SIGNAL RS : 
00000000" F D3 saat iste BASSL_ERRFLG + 3191 
7 006 8F 9A 00016 MOVZBL HBASSK RESNO, ERR, -(SP) : 
g 1 FB OOOTA CALLS - BASSES! é 
: D 00 90010 1$ MOVL ‘Pp + 3197 
é 0c Ag DO 00020 MOVL NOtERP), FMP : 3198 
52 DD 00024 PUSHL FMP : 3200 
00E6 ¢3 01 FB 00026 CALLS , BASSSMODULE : 
50 D6 00028 INCL ; 
00000000" EF 50 D1 900¢0 CMPL , BASST_ERN+4 : 
08 13 000 BEQL : 
re 006 a 9A 00036 MOV ZBL HBASSK ILLRESSUB, -(SP) F 
mi ES AD OF Oo08e 28 oe ead og : 3206 
1 12 p0045 BNEQ cath : 

3 0c A DO 00044 MOVL 12(EMP), FMP : 3398 
50 000000006 00 9€ 00048 MOVAB BASSHANDLER, RO : 3210 
. gy th ge) 7 
7 006 BF 9A 00054 MOVZBL #BASSK RESNO_ERR, -(SP) : 2218 
6 01 FB 00058 CALLS BASS$SIGNAL : 

52 DD 00058 3$: PUSHL ine : 3223 
64 01 FB 0005 CALLS #1, BASSSUNWIND ; 
DC 11 00060 BRB : 3206 
07 ES ag 91 0062 4$ CMPB 0s =27( FMP), #7 > 3231 
13 66 BEQL : 
3 006 8F 9A 000 MOV ZBL HBASSK ILLRESSUB, -(SP) : 3238 
‘ 1 FB 0006C CALLS BASS$S1GNAL : 
2 DD O006F SS: PUSHL > 3248 

64 1 fe 0071 CALLS BASSSUNWIND 3 
5D é DO 00074 MOVL 49 FP : 3249 
ps 0077 CLRL =. RO > 3254 
0079 RET > 3255 


; Routine Size: 122 bytes, Routine Base: _BASSCODE + 0558 


; 1787 3256 1 


telnet eect toceteaedladidee thi ieee oedheiitaatbtaaihiedilae 


"1 
ASSERROR 1e-bep-1986 00:23:13  VAN=11 BLise-S2 ys.0-76 2 ' 
PASE lersepnlobe Vi:8eise  Eeasnt SaeSancennag oss. 1 age 43) 
GLOBAL ROUTINE BASSON_ERR_Z = ! ON ERROR GOTO 6 
tee 


: FUNCTIONAL DESCRIPTION: 
The BASIC statement ON ERROR GOTO 0 is compiled as 


CALLS #0 BASSON, ERR 2 
CLRL =—- BASSA_USER_HARD (Rn) 


WnN—OO0@~ 


AAA WIUIM 


at 


SS 


Thus, the job of BASSON_ERR_Z is to return if there is no 

error in progress, and fo provide eyspee error grocessing 

if there is an error in progress. This latter function is 
t Cust ing Berk the stack (Like RESUME) and returning 

fo BAS user. D indicating that system error handling 

Ss required. 


St errererers: 
MPPOPoRoPoRonofonorononorornononornoru 


done b 


ANNO 
Wwn—o 


SESS 


If there is no error being processed, just return. The value will 
! be ignored. 


MEW —O0Oan 


RERELE 


3 1 

F} 1 

3 1 

s 1 

3 1! 

3 1} 

3 1! 

3 1! 

$ 1! 

3 1! 

s 1! 

3 1! 

3 1! 

3 1! 

3 1! 

3 1! 

: 18 iF } FORMAL PARAMETERS 
3 180? 75 1! 

; 1808 7661! NONE 

3; 1809 1a Ze 

3; 1810 78 1°! IMPLICIT INPUTS: 

; 1811 79 «1:5! 

3 1el¢ 80 1! BASSL_ERRFLG 
3; 181 281 1! 

3: 1814 ses 1 ! IMPLICIT OUTPUTS: 
3; 1815 283 1! 

: 1816 284 1! NONE 

3; 1817 285 1! 

; H+ H+ 287 : ROUTINE VALUE: 

: 1820 88 1! Either no value, or USER ERR OEGZ, to indicate to BASSS$USER_HAND 
: 13¢) 334 ! that the user did an ON ERROR GOTO 0 in his error handler. 
; 1858 $34 1 ! COMPLETION CODES: 
3 isse 344 1! 

3; 1825 93 1! NONE 

: 1826 94 1! 

3 ase 95 1 ! SIDE EFFECTS: 

3; 1828 296 1! : 
r Hi 297 1! May cut back the stack, thus not returning to the caller. 
3; 1830 298 1! 

3 4 td $00 : leo 

3 1833 01 BEGIN 

3; 1834 308 

: 1835 30 BUILTIN 

; 1836 304 FP; 

3; 183 05 

3; 183 BS LOCAL 

3 HF 4 FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD); 
: 1 09 

: 1 10 

: } 

: 1 318 


sO 


- - _ 
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IF (.BASSL_ERRFLG EQL 0) THEN RETURN (0); 


'* 
Dig back through GOSUB frames to find the condition handling frame. 


FMP = .FP; 
FMP = .FMP (BSFSA_SAVED_FP); 


WHILE. (FMP CBSFSB_PROC CODE] EOL BSFSK_PROC_GOSB) DO 
FMP = .FMP CBSFSA_SAVED_FP); 
4 IF (FMP CBSFSA_HANDLER] NEQA BASSHANDLER) 


ad at ad 
OONOUE 


'¢ 

: The previous frame is not a BASIC frame. This means that the user 
! began presesaing an error, called a non-BASIC routine which called 
: a BASIC routine which tried to specify system error handling. 

: Disallow this kind of poorly-structured code. 


BASSSSIGNAL (BASSK_RESNO_ERR); 


tt tt es = a — 


eee TERE Soran seek 


'e 
ry : Deallocate any heap storage that may be held by this frame. 
871 ; BASSSUNWIND (.FMP); 
1h) END; 
87 
874 4 '¢ 
875 4 : We have finished cutting back the GOSUB frames. Now be sure we are 
a76 $ ! in the condition handler. 
878 
879 3 IF (.FMP CBSFSB_PROC_CODE] NEQ BSFSK_PROC_ONER) 
580 $ THEN 
aa6 i We are not. This can happen if the user begins processing an error, 
88 : then calls another routine which tries to specify system error 
Bae } handling. Disallow this, also. 
886 BASSSSIGNAL (BASSK_RESNO_ERR); 


'¢ 

1 We have reached the condition handling frame. By stuffing the 

! pointer to this frame into FP we effectively cut back the stack, 

: since this routine’s RET will then return from the condition 

. handler, Note that we are not restoring “~ registers; we depend 
! on the fact that BASSINIT_ONER saves them all, so the RET we are 

: about to do will restore registers for BASSSUSER_HAND. 


G00 G0 
oon 
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AAAAAAVIMAUII 
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64 BASSSUNWIND (.FMP); 
id 5 FP = .FMP; 
‘¢ 
899 3 : Indicate to BASSSUSER_HAND that the user has written ON ERROR GOTO 0. 
901 308 RETURN (USER_ERR_OEGZ); 
902 0 END; ! of BASSON_ERR_2 


ee 


—-—- 
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; 1903 3371 1 
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-BASSCODE + 0502 
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Be 99:82:58 


BASRTL.SRC 


BASSON_ERR Be gave R2,R3 


BASSSURWIND 
ASSL_ERRFLG 


F 
( 
FMP), FMP 
SHANOLER, RO 

~ RO 
WBASSK_RESNO_ERR, -(SP) 
“ BASSS$SIGNAL 
#1, BASSSUNWIND 
7g? (FMP). #7 


4 
#BAS$K_RESNO_ERR, -(SP) 
#1, BASSSSIGRNAL 


#1, BASSSUNWIND 
FMP, FP 


#2, RO 
RO 
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hei 10 350-198e 99:82:88 UBASRTL. SRC IBASERROR.B3 31 29° 435 

3 1993 a } GLOBAL ROUTINE BASSON_ERR_BK = ! ON ERROR GO BACK 

; 1909 74 1 fee 

3 : Ne : : FUNCTIONAL DESCRIPTION: 

: 1910 7 i The BASIC statement ON ERROR GO BACK is compiled as 

; 191¢ rg 1/ CALLS #0,BASSON ERR_BK 

; bat e} : MOVZBL #1,BASS$A_OSER-HAND(Rn) 

3 1915 é 1/ Thus, the job of BASSON_ERR_BK is to return if there is no 

3 1916 1! error in progress, and fo permit the caller of the BASIC 

3; 191 1! rocedure to try to process the error if there is an error 

3 1b 4} | . 3s nN progress. This latter function is done by cutcing beck 

3; 191 1! the stack (Like RESUME) and sotureing to BASSSUSER_HAND with 

3 13 rt ! } @ USER_ERR_GOBK, indicating that it is to revert. 

; 1988 89 i FORMAL PARAMETERS: 

3 1924 91 1: NONE 

3; 1925 3 74 

3; 19 $ 9 1 ! IMPLICIT INPUTS: 

3; 19 9% «1! 

3 13 : 95 ; BASSL_ERRFLG 

: 19 38 1 | IMPLICIT OUTPUTS: 

3; 1931 98 1! 

3; 19 § 99 1! NONE 

3; 19 400 1! 

3 19 01 1 =! ROUTINE VALUE: 

3; 1935 o 1! 

; 13 87 : Either no value, or USER_ERR_GOBK. 

; 1938 05 i COMPLETION CODES: 

$ 1940 09 1: NONE 

3: 1941 08 1! 

3 1366 09 1! SIDE EFFECTS: 

3 194 10 7! " 

3 Ho 1 ; : May cut back the stack, thus not returning to the caller. 

ie BI 

: 1948 15 BEGIN 

3 194 18 

3; 1950 1 BUILTIN 

3; 1951 18 FP; 

BR BS tom 

: 13e¢ 1 FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD); 

: 1956 4 '¢ 

3; 195 4 : If there is no error being processed, just return. The value will 

; 1958 5 ! be ignored. 

3; 1959 $ !- 

3; 1960 

; 1961 8 IF (.BASSL_ERRFLG EQL 0) THEN RETURN (0); 


co 


196 


233F 
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DNR AR WHOS 
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PEST EE SES EERE: 
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'¢ 
Dig back through GOSUB frames to find the condition handling frame. 


FMP = .FP; 
FMP = .FMP CBSFSA_SAVED_FP); 


WHILE (.FMP CBSFSB_PROC CODE] EQL BSFSK_PROC_GOSB) DO 
FMP = .FMP CBSFSA_SAVED_FPI; 


io" CBSFSA_HANDLER] NEQA BASSHANDLER) 


! The previous frame is not a BASIC frame. This means that the user 
; Segee rocessing an error, called a non-BASIC routine which called 

a BASIC routine which tried to allow the caller of the routine that 
' got the error to handle the error. Disallow this «ind of 
poorly-structured code. 


BASSSSIGNAL (BASSK_RESNO_ERR); 


le 


Deallocate any heap storage that may be held by this frame. 
BASSSUNWIND (.FMP); 
END; 


+ 


' 
! We have finished cutting back the GOSUB frames. Now be sure we are 
} in the condition handler. 


et CBSFS$B_PROC_CODE] NEQ BSFSK_PROC_ONER) 


'¢ 

! We are not. This can happen if the user begins processing an error, 
! then calls another routine which tries to specify system error 

} handling. Disallow this, also. 


BASSSSIGNAL (BASSK_IMPERRHAN) ; 


+ 

We have reeched the condition handling frame. By stuffing the 
pointer to this frame into FP we effectively cut back the stack, 
since this routine'’s RET will then return from the condition 
handler. Note that we are not restoring any registers; we depend 
on the fact that BASSINIT_ONER saves them all, so the RET we are 
about to do will restore Fegisters for BAS$SUSER_HAND. 


BASSSUNWIND (.FMP); 
FP = 


'¢ 

: Indicate to BASSSUSER_HAND that the user has written ON ERROR GO BACK. 
RETURN (USER_ERR_GOBK); 
END; 


! of BASSON_ERR_BK 
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_ BASSERROR 16-Sep-1984 00:23:13 YAX-11 Bliss-32 v4.0-74 p 

ot 122808-138e 99:82:58 — EBAsatu sneseaSeRRon 03951 age 138 


| 

| 

| 53 0000000 
bo000000° 


000C 000 .ENTRY BASSON_ERR_BK, Save R2.R3 3 3372 
00 § 00 MOV BASSSUNWIND, R3 : 
EF ? 00 TSTL BASSL_ERRFLG + 3428 
48 F BEQL 4 : 
33 5D D0 00011 MOVL FP, FMP t 3433 
0¢ A 0014 MOVL 12¢FMP), FMP : 34 
06 ES Ae 91 0018 1$: C <27(FMPS, #6 + 3436 
2 g 001C BNEQ 3 : 
52 oc A p 001 MOVL 12(FMP), FMP : 3438 
000000006 0 : 00 MOV BASSHANDLER, RO + 3440 
50 D1 000 CMPL (FMP), R : 
13 0002C BEQL 2$ : 
7E 006 8F 9A 000 MOVZBL #BAS$K_RESNO_ERR, -(SP) + 3449 
FB9B OCF 9) FB 000 CALLS #1, BASSSSIGRAL 3 
é DD 00037 28 PUSHL F : 3454 
63 01 FB 00039 CALLS #1, BASSSUNWIND : 
DA 11 0003C BRB : 3436 
07 ES A 91 000 ; 3$: CMPB 0s «= 27 (FMP), #7 : 3462 
0 13 0004 BEQL 4 : 
7E 006 8F 9A 00044 MOVZBL #BASS$K_IMPERRHAN, -(SP) : 3469 
FB85 CCF 9) FB 00048 CALLS #1, BASSSSIGNAL 3 
2 DD 00040 4$: PUSHL FM : 3479 
63 01 FB 0004F CALLS #1, BASSSUNWIND : 
5D 52 00 90052 MOVL FMP, FP + 3480 
50 01 00 0005 MOVL #1, RO > 3484. 
04 00058 RET : 
50 04 00059 5$: CLRL = RO : 3485. 
04 00058 RET F 


; Routine Size: 92 bytes, Routine Base: _BASSCODE + 062E 


; 2019 3486 1 
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GLOBAL ROUTINE BASSSHANDLER ( ! handler for BASIC compiled code 
AR ! VAX/VMS signal arguments 
MECHANTSM_ARGS i VAX/VMS mechanism arguments 
. 
lee 


i FUNCTIONAL DESCRIPTION: 
Handle an exception from within a BASIC-PLUS-2 routine. 
Note that the real entry point, BASSHANDLER, is a location in 
the sharable Library's vector (or in a small module if this code 
is mot shared) so that a frame can bg tested for being a BASIC 
frame by testing for BASSHANDLER in O(FP). 
FORMAL PARAMETERS: 
SIGNAL ARGS A vector of longwords which indicate the nature 
of the condition. 
MECHANISM_ARGS A vector of longwords that indicate the state 
of the process at the time of the signal. 
IMPLICIT INPUTS: 


The information in the frames of the BASIC-PLUS<-2 routines 
in and before the one which encountered the error. 


IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

An indication to the VAX/VMS CHF of whether or not to revert. 
COMPLETION CODES: 


SS$_RESIGNAL 
SS$_CONT INUE 


SIDE EFFECTS: 


May do an UNWIND to let the BASIC-PLUS-2 code process the error. 
On an UNWIND, will deallocate any heap storage held by its frame. 


BEGIN 
MAP 
SIGNAL_ARGS : REF BLOCK (0, BYTE) 
MECHANTSM_ARGS : REF BLOCK CO, BYTE); 
BUILTIN ' 
CALLG, ! call with hand-built argument List 


LOCAL 
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| BASSERROR 1b-se -1984 00:23:13 AX-11 Bliss-32 V4.0-74 Pa 8 
$43 1 ~300n 138% 90:82:88 YBASRTL SRE BASERROR.B32;1 9 085 
; 207 44 COND_VAL : BLOCK (4, BYTE) ! condition value being signaled 

0 45 TEMP"COND VAL : BLOCK (4, 6YTED, i temp. for copying adit 

0 $$ NUM_FAO_ARGS, ' number of FAO arguments while copying 

081 4 SCAR_DORE ! used to control copying loop 

0 ¢ 48 COPY“LIMIf i Likewise 

08 4 FMP 7 REF BLOCK [O, BYTE] FIELD (BSFSFCD), ' frame pointer 

0. 0 LEN_VECTOR : VOLATILE, '"Length of new vector 

085 1 NEW VECTOR : REF BLOCK CO, BYTE] VOLATILE, ! the new vector to be signaled 

0 § PUTTER, ! used to store in new vector 

08 GETTER, ' used to fetch from old veg tor 

088 4 GET_VM_RESULT, ! condition value from calling LIBSGET_VM 

94 ‘ Use RESULT. ! condition value from calling BASS$SUSER_HAND 
091 5 C 

94 28 RESTART_TO_FLAG; ! This is a restartable 1/0 statement 

094 60 '¢ 

095 61 ! The SYSTEM_ERROR cell is 1 if the user specified that system 

B98 $¢ ' error handT ng is to take place. It is set based on a call to 

09 6 ! BASSSUSER_HAND, and, if set, BASSSUSER_HAND will not be called 

098 64 ! again for this error. 
099 65 ! The GONE_BACK cell is 0 if this is the first instance of the 

00 ! BASIC handler to see this error, and 1 if we have gone through 

03 a reversion (if only to get traceback). 

0 + 

Be Declare a handler to clean up heap storage. 


NABLE 
HANDLER_HANDLER (LEN_VECTOR, NEW VECTOR); 


on 
mn case we cut back frames, put the signal argument PSL into our frame 
o the PSL will be correctly restored. If the emulator is invoked, 
t will put an extra frame on the stack and the return PSL will be 
n 


! 
i 
i 
i 
: correct if we fail to do this. 


$ 
i 
i 


BEGIN 
LOCAL 
FRAME : REF VECTOR (4,WORD); 


FRAME = .FP; 
IF .SIGNAL_ARGS CCHFS$L_SIG_ARGS) GTR 1 
a FRAME (2) = .SIGNAL_ARGS [(.SIGNAL_ARGS CCHFSL_SIG_ARGS) * %UPVAL),0,16,0): 


100009 09 C9 09 C0 09 00 00 SI NIN SINISE NOOO 


'¢ 
Set up a pointer to our frame. 


FMP = .MECHANISM_ARGS CCHFSL_MCH_FRAME); 


LW weal eal ah al ah ab ab ab db ab Ab Ab Ab id eb ab bh bbb hh Ab dh Ab dh sb dh sh dh sh ah sb ah al ab dk dl ad al ala ahead eal al ead eal ea ea eae ea ea! 


ee ee ee ee ee ed a ed od od od od 
FaNSS DONO NEW O OONOU SW "Oo 0a~ 


598 '¢ 
599 ' Remember whether we are the first handler to process this error, 
600 ! and tell deeper handlers that they are not. 


f 
| 
| 
f 
CEVEL ! true if we have original jurisdiction 
OND VAL_ CHANGE, ' true if we translated cond 


on 
~e 
om 
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BASRTL.SRC JBASERROR B32; 1 29 20) 


t 


; 2135 601 te 

; 21 oe TOP LEVEL = (IF (.GONE_BACK) THEN O ELSE 1); 

3 , oR? ai GONE_BACK = 1; 

3 él 605 ! Check for certain non-BASIC errors. Many of these are 

3 19 rt } converted to their equivalent BASIC error. 

; 196 one COND_VAL = .SIGNAL_ARGS CCHFSL_SIG_NAME); 

: 144 610 IF (.COND_VAL CSTS$V_FAC_NOJ EQL BAS$K_FAC_NO) 

i: 3146 6i¢ COND_VAL_CHANGE = 0 

3 214 61 ELSE 

3; 2148 614 BEGIN 

3 2149 615 

3 2150 ols CASE LIBSMATCH COND (COND VAL, ' 

: 2151 61 ZREF (ATHS$_SQUROONEG), ! 1 = negative square root 

3 13g o18 ZREF (MTHS_LOGZERNEG), ; ¢ = negative or zero on 

3 215 61 ZREF (MTHS FLOOVEMAT), ! 3 = floating overflow (EXP or TAN) 
3 2154 620 ZREF (SS$_FLTDIV), ! 4 = floating divide by zero 

3; 2155 621 ZREF (SS$_INTDIV), ! 5 = integer divide by zero 

3 138 6 ; ZREF (SSS_FLTOVF), ; § = floating overflow 

3; 215 6 ZREF (SS$_INTOVF), ! 7 = integer overflow A 

; 2158 624 ZREF (MTHS_SIGLOSMAT), ' § = sign ficance lost in math Library 
3; 2159 625 ZREF (MTHS _UNDEXP), ! 9 = undefined ** operation 

: 2160 ose ZREF (SS$_ACCVIO) ! 10 = access violation 

: 2161 6 ZREF (SS$"ROPRANDS , ! 11 = reserved (floating) operand 

3 166 628 ZREF (SS$_SUBRNG), ' \¢ = subscript out of range 

3 216 629 ZREF (STRS_INSVIRMEM), ! 13 = insufficient virtual memory (strings) 
3: 2164 630 ZREF (STRS_DIVBY ZER), ! 14 = String divide by zero 

3; 2165 631 ZREF (OTS$"10_CONCLO), ! 15 = 1/0 continued to closed file 
3 2166 636 ZREF (SS$_ONWIND), ! 16 = unwinding through this frame 
3 2167 63 ZREF (STRS_STRTOOLON), ! 17 = String too long (greater than 65535) 
3 2168 634 ZREF (SS$_FLTDIV_F), ! 18 = floating divide by zero fault 
3 1s? 635 ZREF (SS$_FLTOVF_F), ' 19 = floating overflow fault 

: 2170 636 ante (SS$"DECOVFT) ! 20 = decimal overflow 

3 2171 tH FROM 0 TO 20 OF 

: 76 638 T 

3 217 639 

3 2174 640 (0) : 

3 \7? red COND_VAL_CHANGE = 0; ! none of the above, don't translate 
: 2177 6c§ (1) : 

3; 2178 644 4 BEGIN ' SQRT(N), N LSS 0 

> 2179 645 4 COND_VAL = BASSSCOND_VAL (BASSK_iMASQUROO) ; 

3: 21 >t | & COND_VAL_CHANGE = 1; 

3; 2181 64 END; 

3: 21 ¢ 648 

3 21 649 (2) : 

3 21 650 4 BEGIN ' LOG(N), N LEQ 0 

> 2185 651 4 COND_VAL = BASSSCOND_VAL (BAS$K_ILLARGLOG); 

> 21 63¢ 4 COND"VAL_CHANGE = 1; 

: 4 65 END; 

3: 21 654 

3: 2189 655 (4, 5, 14, 18): 

3 21 626 4 BEGIN ' N/O0,_N%/0 and SQUO(NS,'0",P%) 

3 2191 3657 4 COND_VAL = BASSSCOND_VAL (BASSK_DIVBY_ZER); 


a eS Sy pees 
i 
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om 


COND_VAL_CHANGE = 1; 
ND; 


oo 
wre 
San 
ovum 
Owoc 


(7) : 


BEGIN : 
tone VAL = ytd eee VAL (BASSK_ inte 
END 


E oreger overflow 
OND_VA 
— D-VAL_CHANGE = 


— —) ss vt 


GIN invalid address 
COND_VAL = BAS$SCOND VAL (BASSK _WENMANVIO) 3 
sone. _VAL_CHANGE = 1; 


C11] : 
BEGIN !' reserved operand--fixup to zero 


LOCAL 
F IXUP_RESULT: 


, FIXUP_RESULT = LIBSFIXUP_FLT (.SIGNAL_ARGS, .MECHANISM_ARGS); 
+ 
' If the fixup attempt fails, then this handler fails. 


IF ( NOT .FIXUP_RESULT) 
THEN 


GONE (IF (.TOP_LEVEL) THEN 0 ELSE 1); 
RETURN cs “FIXUP. RESULTS; 


ty 
: Convert the signal to the catch-all floating point warning for BASIC. 


COND_VAL = BASSSCOND_ VAL (BASS$K_FLOPOIERR); 
COND. VAL_CHANGE = 1; 


US ASSONOUE UN SOWVANR UV OSB NE AF WOOD IOE 


C3. 6. 8. 9. 79) : 
BE hos IN all other math errors 
COND_VAL = BASSS$COND_ VAL (BASS$K fvdPo1eR R); 
COND VAL_CHANGE = 1; 


why ot out of range 
OND_VAL = so pa VAL (BASS$K _SUBOUTRAN 
COND VAL_CHANGE = 


(13) : 


Bt Str 
CON > VAL = BASSSCOND_VAL (BASSK _WAXRENE 
se. VAL _CHANGE = 13” 


ppoekese ran out of memory 


oa 
oo 
o 
WEF PWIA & FWA & PMMA BE EEE ENN NE BEBE EE EF EAMES & PWS FEW 
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fwn—o wr—O oOo ws Ooo 
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| 
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OONOULS WN Ow” 


PVA PPVSVSISISISIST £ 
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MMM Torororororrurororrrreror 
ee tt 
AN AN AANA AINA AIAN NIAAA 


MINIS Se UR 


COMOO NNN 
MEWN OC OONOuUs 
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(15) : 
BEGIN 
14 


! 1/0 continued to closed file. This happens when a function is called in 

! an 1/0 List (for example, to evaluate a subscript) and the function 

i closes the 1/0 channel that the 1/0 list is operating on. For compatability 
with BASIC-PLUS, give the error message ILLEGAL BYTE COUNT FOR I/O. 


COND_VAL = BASSSCOND_VAL (BASSK_ILLBYTCOU); 
COND-VAL CHANGE = 1; 


(16) : 
i BEGIN ! Unwinding through this frame 


: We are unwinding through this frame. This may be due to a RESUME 
! statement cutting back this frame, to the RUN command recovering 
! from an error, or to a non-BASIC part of the user's oreer en doing 
error recovery. Deallocate any heap storage held by this frame. 


BASSSUNWIND (.FMP); 
END; 


SN NNN NSS 


AWAAA AWW AAIAIPINONINNNNPONN9N OS 


GIN ' aie ing created longer than 65535 characters 
COND_VAL = BASSSCOND_VAL (BAS$K_STRTOOLON); 
FO VAL, _CUNISE = 1; 


BEGIN ! Decimal overflow 
COND_VAL = BASSSCOND_VAL (BASS$K_DECERR); 
COND_VAL_CHANGE = 1; 
END; 
TES; 
+ 
! If the translated signal condition is not a BASIC condition, 


! we can't process it. Return to CHF and indicate that the next 
higher frame should be given a chance at it. 


SODNA NE WIN SO ODNA UNE WN 3 O ODNAULS WN 0 OONOUE WN" OOONOU 


SS 
DPS Se BB PEE EOWA 


OT a CSTS$V_FAC_NO} NEQ BAS$K_FAC_NO) 


Se rere 


RPM IMIMINIWIWNE & EWE AWN WAAAE & BAA BPW EB BP BEEF PWS FPP PPP EPI 


N 
761 BEGIN 
76 GONE BACK = (IF (.TOP_LEVEL) THEN 0 ELSE 1); 
76 RETURN (SS$_RESIGNAL); 
64 END; 
765 
76 END; 
76 
768 1. 
788 ! Give the user's BASIC program a chance to process the error. 
770 ! If it succeeds, give a success return, otherwise do a special | 
771 ! resignal by extending the signal argument List and signaling again. 


N 11 
ie 1e-8ep-1986 11:84:56 LBASRTL OSRESBASEAROR.6 ited 
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r4 
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IF (( NOT .SYSTEM_ERROR) AND (.COND_VAL CSTSS$V_SEVERITY] NEGU STSSK_INFO)) 
USER_RESULT = BASSSUSER_HAND (.COND_VAL CSTSSV_CODE], .FMP, .MECHANISM_ARGS CCHF SL_MCH_DEPTH]) 
USER_RESULT = USER_HAND_FAIL; 

“it the user processes the error to his own satisfaction, skip 

i. most of the remainder of this handler. 

0 4: VEER AEST NEQ USER_HAND_CONT) 
BEGIN 


78 


' 
i If the user specified oyetes handling set the ER RAND so weet the 
i deeper levels of BASSHANDLER won't call BAS$SUSER_HAND 


IF (.USER_RESULT EQL USER_HAND_FAIL) THEN SYSTEM_ERROR = 1; 
'¢ 
i If we are at the top level purge the terminal's output buffer $0 


! that, if a message is printed, it will print alter the program's 
a output. 


: 
1 
1 
1 
1 
1 
1 
1 
1 
: 
3 
3 


IF (.TOP_LEVEL) THEN BASS$SPUR_IO_ERR (); 
'<BLF /PAGE> 


SESS SSS be ena bien 
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COooowoowoowovun 
WR — SO OOD NOulwr 
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SANS 
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—Owoo MEW —OOONOUS wr 

WWWNNWWNANWNAAIWNIANIAI IPOPONONNNPUPUNuNonrwnn 
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5 at ed w 
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PAA 
WR OS OONAOULS WN —OODONOU SW O 


ROOD 


aes 


pereneratetetetenenet % 
SANG 
DONO UNSW —OV0OOn 


SEEREE 


= 


aR 


SSAOAK LI SOS UO OLN OOO NE APU OD Roe 
WN — OODBNAVEWN $9 OONOUES WN OOONG UNSW OO 


WN WAWAWAW AAA ANNAN NANA AA AWN 
‘GD GO Gd Cd Cd Od OD Cd Od Od On Od GD 09 CO CD OD OD CD CD CD 
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Fa 


nee 
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AAAAAA.AAAA.MAAAAA.AAAWIAN AAA 


20000 09 09 00 CD CD CD CD OD 
HOM AAN An & 
CODONO UE WN —O0OW 


WANE & FW AWWW & BS 
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Sep-19 BASRTL.SR 
6 
' Append a message about the current frame to the signal argument 
' List. This requires ae the List. If we hove trenslated 
! the signal condition, append the new condition rather than 
! overwrite the old one, so that a message Like ‘floating point error’ 
can have with it a clue as to why it happened. 

Compute the Length of the new signal argument List. 
LEN_VECTOR = (.SIGNAL_ARGS CCHFSi_SIG_ARGS] + 3); 


ana ‘tel CBSF$B_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 


' CBSFSK_PROC_MAIN, BSFSK_PROC_SUB, BSFSK_PROC_EXTF] : 
These frames only have two variables in the FAO List 
j LEN_VECTOR = .LEN_VECTOR + 2; 


CBSFSK_PROC_DEF, BSFSK_PROC_DEFS, BSFSK_PROC_GOSB, BSFSK_PROC_ONER] : 


'¢ 
These frames have three variables in the FAO List 


LEN_VECTOR = .LEN_VECTOR + 3; 
1. CBSFSK_PROC_IOLJ : 
;_This frame has only one variable in the FAO List 
LEN_VECTOR = .LEN_VECTOR + 1; 
- COUTRANGE) : 
! If the BSFSB_PROC_CODE byte is out of range then the frame 
! has been garbaged. There is no point in attempting to continue, 


! sO we mearly return to CHF. It is Likely that some error message 
will be printed. 


GONE BACK = (IF (.TOP_LEVEL) THEN 0 ELSE 1); 

arm (SS$_RESIGNAL); 
SiR: 

'¢ 


i Take into account translation of a math error and adding a FAO count 
; to a short List. 


IF (.COND_VAL_ CHANGE) 
THEN 


BEGIN 
LEN_VECTOR = .LEN_VECTOR * 6; 
END 

ELSE 


1 
1E-$e0-1984 00:25:15 yAR=J1 Bling=32 v4.0-763 | 


12 
‘penn VE$eor}98e Q0:23:13  YAMCHY eLissssz veo 


IF (.SIGNAL_ARGS CCHFSL_SIG_ARGS] EQL 3) THEN LEN_VECTOR = .LEN_VECTOR + 1; 


no 


wr 


baotatatated 


; 64 

; 5 

: $40 ae? 

: 240 868 4 IF (.LEN_VECTOR GTR 250) 

+ 2404 $92 3 THEN 

: 2405 4 0 4 GIN 

: ret 71 4 GONE BACK = (IF (.TOP_LEVEL) THEN O ELSE 1); 

: 240 are 4 RETURN (SS$_RESIGNAL) > 

:; 2608 7 END; 

; 2609 874 

: att are i*6 hold th ignal li 

3 ! Get space to hold the new signal argument List. 

3 Wg ae 

3: 2414 879 & IF ( NOT (GET_VM_RESULT = LIBSGET_VM (ZREF (.LEN_VECTOR*ZUPVAL), NEW_VECTOR))) 

3; 2415 880 THEN 

3; 2416 881 '¢ 

3 2417 88 : If we are out of space just quit. This should happen only for 

: 2618 88 ! very unreasonable BASIC programs. The BASIC program is given 

3 24619 884 ! mo chance to recover. 

: 2420 885 !- 

3 2421 886 4 BEGIN 

; 24 ; 887 & LIBSSTOP (.GET_VM_RESULT); 

> 26 88 4 GONE BACK = (IF ([TOP_LEVEL) THEN O ELSE 1); 

3 2424 889 4 RETURN (SS$_RESIGNAL); 

3; 2425 890 END; 

3: 2426 891 

3 2427 89 + 

: 2428 89 ! Now copy data into the new vector. If we have not translated 

; iy 894 ! the signal condition then our new data goes between the Last 

3 24 895 ! of the BASIC data and the first non-BASIC data. If we have 

; sees 4] translated the signal condition then our data goes first. 

; 435 898 ! First set the length. Don't count the count longword or the two 

; $ee 899 ! trailing longwords. 

3; 2435 900 te 

; 2436 901 NEW_VECTCR CO, 0, ZBPVAL, 1] = .LEN_VECTOR - 3; 

: 2437 moe PUTTER = 1; 

3; 2438 90 GETTER = 1; 

3; 2439 904 ’ : 

3 2440 905 : If we translated the signal code, store it and a 0 for its FAO count. 

: “oe 4 Also, store a special message which prints the original PC and PSL. 

3: 246 908 

3 2444 909 4 IF (.COND_VAL_ CHANGE) 

3: 2445 910 3 THEN 

3 2646 911 4 BEGIN 

3 246 aig 4 NEW VECTOR C.PUTTER*ZUPVAL, 0, ZBPVAL, 0] = .COND_VAL; 

3 2448 913 4 PUTTER = .PUTTER + 1; 

> 2649 914 4 NEW VECTOR C.PUTTER®SUPVAL, 0, ZBPVAL, 0) = 0; 

: 2450 915 & PUTTER = .PUT + 1; 

3: 2451 64 | 4 NEW_VECTOR -PUTTER*£UPVAL, 0, %BPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_PCPSL); 
E 2452 3917 4 user PC=!XL, PSC=!XL 
| 


'¢ 
! If the argument List is too — quit. This should only happen if 
i there is a tall stack of subroutines. 


| 
| 
| 
| 


BASSERROR 
kei 

: 2653 318 4 
: 2656 919 & 
; 2455 920 4 
3; 24 $ 921 & 
: $t 358 ¢ 
: $228 952 
>; 2660 925 4 
: 2461 9 $ 4 
: 2466 9 4 
3; 246 928 3 
3 2466 929 4 
3; 2465 930 & t+ 
; $98 931 «4 
3; 246 9 ; 4 
3; 2468 9 4 
3 2469 934 & 
: 2470 935 & 
3: 2671 B38 : 
3: 247 93 

3: 267 938 5 
3 2476 939 

3; 2475 940 

3: 2476 941 

3 2677 4 | 

3 2478 943 6 
3; 2679 944 6 
3; 2480 945 6 
: 2481 946 6 
3; 248 947 6 !+ 
3; 248 948 6 
: 26846 949 6 
3; 2485 3950 § 
3; 2486 Sea; 

3; 2487 336 § 
: 2488 95 

3: 2489 954 7 
3: 2490 955 7 
: 2491 956 7 
3; 249 957 7 
3: 249 958 7 
3 2494 959 7 
3: 2495 960 8 
: +38 961 

: 249 306 

3; 2498 96 

3 2499 964 ° 
3; 2500 965 

3 2501 966 7 
: 206 967 7 
3; 250 968 $ 
3 2504 969 

3; 2505 970 7 !¢ 
3: 2506 971 7 
3; 2507 972 7 
3; 2508 973 7 
; 2509 974 7 


r 


ELSE 


D 12 
1o-808-13 4 90: Fe 3 
TTER + 1; 


PUTTER 

NEW VECTOR -PUTTER*ZUPVAL, 0, XBPVAL, 0] = 2; 

PUTTER = .PUTTER + 1: 

NeW vecToR .PUTTER® £UPVAL ZBPVAL 

.SIGNA ARGS CC. 

BUTTERS PUTTER 

NEW ee rok “Put 
TER 


! FAO count 


ae 


T 
$I 
+ 
TER*hu PVAL 
16 


9 ZBPVAL, 0) = : 

. SIGNAL_ARGS GNAL_ARGS CCHFSL_SIG_ARGS])*2UPVAL, 0, %BPVAL, 0); 
BUTTER = PUT 1; 

END 

BEGIN 


i Otherwise copy all the BASIC data. 


SCAN_DONE = 0; 
UNTIL. (.SCAN_DONE) DO 
TEMP_COND_VAL = .SIGNAL_ARGS C.GETTER*ZUPVAL, 0, %8PVAL, 0); 
IF _(.TEMP_COND VAL CSTS$V_FAC_NO] NEQ BASSK.FAC_NO) 
SCAN_DONE = 1 
BEGIN 
GETTER = 


NEW VECTOR ae PUTTERSHUPVAL. 0, %BPVAL, 0] = .TEMP_COND_VAL; 
PUTTER = .PUTTER + 1; 


Copy the FAO arguments, unless we have reached the end of the List 


—_ NEQU (.SIGNAL_ARGS CCHFSL_SIG_ARGS] - 1)) 


ty 
O_ARGS = as ARGS C.GETTER*ZUPVAL, 0, %BPVAL, 0); 
GETTER 


NEW_ VECTOR y PUTTERSUPVAL. 0, %BPVAL, 0] = .NUM_FAO_ARGS; 
PUTTER = .PUTTER 


a FROM 1 TO .NUM_FAO_ARGS DO 
NEW gy C.PUTTER*ZUPVAL, 0, ZBPVAL, 0] = : 


3} GNA $_C.GETTER® ZUPVAL, 0, %BPVAL, 0); 
GET F meet TER + 1; 
PUTTER = = {PUTTER + 1: 
END 
ELSE 
BEGIN 


' 
: We have reached the end of the List, staging, § a BASIC condition there. 
! Insert a zero FAO argument count since we will 

i. condition values. 


be adding more 


AX-11 Bliss-32 V4.0-7 
BASRTL.SRCJBASERROR. 83 31 


: 
GNAL_ARGS PenPse si6_ ARGS - 1)*ZUPVAL, 0, %BPVAL, 0; 


! PC 


! PSL 


Pa 65 
at) 


—_—_—_—_—_—___—vnknrRkrer rece ee eee ee 


et 
BASSERROR 16-Sep-1984 00:23:13  VAK=11 Bliss-32 v4.0-74 p 
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| 
| 

H 10 975 7 NEW VECTOR C.PUTTER®*ZUPVAL, 0, ZBPVAL, 0] = 0; | 

: 11 378 7 PUTTER = .PUTTER + 1; 

3 ig 97 ? END; | 

; 251 44 

: 5514 979 6 I+ | 

3 316 aay ° : Check for the end of the signal arguments. 

: 251 982 6 

; 2\8 388 6 IF (.GETTER EQLU (.SIGNAL_ARGS CCHFSL_SIG_ARGS] = 1)) THEN SCAN_DONE = 1; 

: 2 0 985 1 END; 

3; 2521 3R6 

; 25 ; 987 4 END; 

$85 389 $ END 

3: 2525 990 

3; 25 $ 991 '¢ 

3 2 936 ! Now put our data in the parameter List we are building. 

3 2528 99 ! This data varies depending on the frame type. 

: $880 395 3 

; 3 1 4 ames” wd CBSFSB_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 

3 3538 998 3 

; 334 2939 ; (BSF $K PROC_MAIN] : ! main program 

; $e30 4001 4 NEW VECTOR C.PUTTER*ZUPVAL, 0, %BPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_MAIN); 

; 2537 4002 4 ! message code 

3; 2538 4005 4 PUTTER = .PUTTER + 1; 

; 2539 4004 4 NEW VECTOR C.PUTTER*£UPVAL, 0, XBPVAL, OJ = 2; ! number of FAO arguments 

3: 2540 4005 4 PUTTER = .PUTTER + 1; 

3 2541 4006 4 NEW VECTOR C.PUTTER*£UPVAL, 0, %BPVAL, 0] = BASSSLINE (FMP); ! current Line number 

3 eg 4007 4 PUTTER = "te + 1; 

3 254 4008 4 NEW VECTOR C.PUTTER®£UPVAL, 0, %BPVAL, 0] = BASSSMODULE (.FMP); ! module name 

3 2544 4009 4 PUTTER = .PUTTER + 1; 

3; 2545 4010 END; 

3: 2546 4011 

3 rtf re Ht i CBSFS$K_PROC_SUB) : ! external subroutine 

3: 2549 4014 4 NEW_VECTOR C.PUTTER*ZUPVAL, 0, Z%BPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_SUB); 

3; 2550 4015 4 ! message code 

3; 2551 rH 4 PUTTER = .PUTTER + 1; 

3 226 4017 4 NEW_VECTOR C.PUTTER*ZUPVAL, 0, X%BPVAL, 0] = 2; ! number of FAO arguments 

: 22 $38 4 PUTTER = ‘eae @ %s 

: 338 rth 4 ? AS sPUTTER*ZUPVAL , 0, %BPVAL, 0] = BASSSLINE (.FMP); ! current Line number 

; 556 4021 4 NEW VECTOR E purteR*£uPVAL, 0, ZBPVAL, 0] = BASSSMODULE (.FMP); ! module name 

3; 2557 40 ; 4 PUTTER = .PUTTER + 1; 

3: 2558 40 END; 

3 2559 4024 ; 

; 360 3 5 ? CBSFSK_PROC_EXTF] : ! external function 

; 36¢ 40 $ 4 NEW_VECTOR C.PUTTER*ZUPVAL, 0, ZBPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_EXTF); 

: 256 4028 4 ! message code 

3 2564 4029 4 PUTTER = .PUTTER + 1; 

3; 2565 4030 4 NEW VECTOR C.PUTTER®£UPVAL, 0, ZBPVAL, 0) = 2; ! number of FAO arguments 

3; 2566 4031 4 PUTTER = .PUTTER + 1; 


| BASSERROR 

4 74 
BE RR 
; % ¢ 5 
: $2h3 2039 
; ig 4 : 
3; 2574 4 
+ $232 toes 
. 
$255 toca 
3; 2580 4045 
3: 2581 re § | 
3 286 404 
3; 25 rete 
: 25 404 
3; 2585 4050 
3 288 4051 
3; 258 ret 
3; 2588 405 
3; 2589 4054 
3: 2590 4055 
3; 2591 405 
3 238 405 
3; 259 4058 
3 2594 4059 
ess 
; 209 406 
; 2598 406 
3; 2599 4064 
3: 2600 4065 
; 2601 4066 
3 res 4067 
: 260 4068 
3: 2604 4069 
. 
; $0 407 
3; 2608 407 
3; 2609 4074 
3; 2610 4075 
3: 2611 407 
3 oi¢ 407 
3 261 4078 
3 2614 4079 
3; 2615 $380 
3; 261 4081 
3: 261 ret 
3; 2618 40 
3; 2619 4 
3; 2620 4085 
3; 2621 4 
3; 26 $ 40 
3; 26 40 


SESE OE 


a the a ln th eh ee ee a et et tt at at el *, 1, | nt at at at ot at at a 


= s 
NEW VECTOR 


PUTTER = PUTT 


F 12 
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14-Sep-19 BASRTL.SRCJBASERROR.B32;1 
NEW VECTOR C.PUTTER*ZUPVAL, 0, %BPVAL, 0) $$$ (FMP); =! i 
PUTTER PUTTER a 0, %BPVAL, 0] eI (FMP); ! wie san omaee 
o e a eo oe = . PY . 
PUTTER = .PUTTER ¢ 1: tapas Ppa 
END; 
COSF Sx PROC DEF J : ! DEF procedure 
NEW_VECTOR C.PUTTER*ZUPVAL, 0, %BPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_DEF); 
! message code 
PUTTER = .PUTTER + 1: 
NEW VECTOR sPUTTER*EUPVAL , 0, SBPVAL, 0] = 3; ! number of FAO arguments 


sPUTTERSLUPVAL, 0, ZBPVAL, 0] = BASSSLINE (.FMP); ! current Line number 


NEW VECTOR ¢PUTTER*KUPVAL, 0, %BPVAL, 0] = BASSSFUNCTION (.FMP); ! function name 
= ° bd 

NEW VECTOR C.PUTTER*£UPVAL, 0, %BPVAL, 0] = BASSSMODULE (.FMP): ! module name 

PUTTER = PUTTER + 1; 


CBSFSK_PROC_DEFS) : 
BEGIN 


NEW_VECTOR 


PUTTER = .P 
NEW VECTOR 
PuTT 


UTTER =. 
NEW VECTOR 


PUTTER = .PUTT 


! DEF*® procedure 


C.PUTTER*ZUPVAL, 0, %BPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_DEFS); 
! message code 

TTER + 1; 
-PUTTER*ZUPVAL, 0, XBPVAL, 0] = 3; ! number of FAO arguments 


! current Line number 


TTER + 1; 
.PUTTER*ZUPVAL, 0, 


ZBPVAL, 0] = BASSSLINE (.FMP); 


. ER + 1: 
NEW VECTOR -PUTTER*SUPVAL , 0, %BPVAL, 0] = BASSSFUNCTION (.FMP); ! function name 
=. ° 
NEW VECTOR C.PUTTER®£UPVAL, 0, %BPVAL, 0] = BASSSMODULE (.FMP): ' module name 
PUTTER = .PUTTER + 1; 
CBSF SK PROC _GOSB] : ! GOSUB 
NEW_VECTOR C.PUTTER®ZUPVAL, 0, 3BPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_GOSB); 
! message code 
PUTTER = .PUTTER + 1; 
NEW VECTOR : UTTER*SUPVAL , 0, SBPVAL, 0] = 3; ! number of FAO arguments 
=. bJ 
A ba ;PUTTER*EUPVAL , 0, ZBPVAL, 0) = BASSSLINE (.FMP); ' current Line number 
=. 2 
NEW VECTOR ts puTreRsdupvaL. 0, %BPVAL, 0] = BASSSFUNCTION (.FMP); ! function number 
=. 4 
NEW_VECTOR ft purteRsiuPVAL, 0, %BPVAL, 0) = BASSSMODULE (.FMP); ! module name 
PUTTER = .PUTTER + 1; 
END; 
(BSF SK PROC _ONER] : ! ON ERROR GOTO 
NEW_VECTOR C.PUTTER®ZUPVAL, 0, ZBPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_ONER); 
! message code 
PUTTER = PUTTER +1; 
NEW_VECTOR C.PUTTER*ZUPVAL, 0, XBPVAL, 0) = 3; ! number of FAO arguments 


hs es 
vue 
aan 


eae ) 


PUTTER = .PUTTER + 1; 

aA Ale sPUTTER*EUPVAL, 0, %BPVAL, 0] = BASSSLINE (.FMP); ' current Line number 
os : 

NEW VECTOR sPUTTERSLUPVAL , 0, %BPVAL, 0] = BASSSFUNCTION (.FMP); ! function number 
= ° e 

NEW_VECTOR C.PUTTER*SUPVAL, 0, ZBPVAL, 0] = BASSSMODULE (.FMP); ! module name 

PUTTER = .PUTTER + 1; 
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; 26 4 

; 26 4 

: 26 4 

; 26 4 

; 26 4 

3; 26 4 

2: 26 4 

3 ; 

; : rte Z Cashes PROC. 10L3 : ! Immediate mode code 

; 26 £190 4 NEW_VECTOR C.PUTTER*ZUPVAL, 0, ZBPVAL, 0] = BASSSCOND_VAL (ERR_TRACE_IOLST); 
; 26 4101 4 ! message code 

3; 26 $136 4 PUTTER = Pytree + 1; 

; 2638 4103 4 NEW_VECTOR C.PUTTER*ZUPVAL, 0, XBPVAL, 0] = 1; ! number of FAO arguments 
: 2639 4104 4 PUTTER = Pyit + 1; 

3 2640 4105 4 NEW_VECTOR C.PUTTER*ZUPVAL, 0, XBPVAL, 0] = BASSSMODULE (.FMP); ! module name 
3; 2641 $198 4 PUTTER = .PUTTER + 1; 

3 4 410 END; 

3 264 4108 

3 2644 4109 COUTRANGE) : 

3; 2645 4110 + 

3 4 | 4111 ! If the BSFSB_PROC_CODE byte is out of range then the frame 

3; 264 at36 ! has been garbaged. There is no point in attempting to continue, 

3: 2648 411 ! so we mearly return to CHF. It is Likely that some error message 

3; 2649 4114 ! will be printed. 

3; 2650 4115 !- 

3; 2651 eti3 4 BEGIN 

3 $36 4117 4 GONE BACK = (IF (.TOP_LEVEL) THEN 0 ELSE 1); 

3: 265 4118 4 RETURN (SS$_RESIGNAL); 

3 2654 4119 3 END; 

3; 2655 4120 TES; 

; $26 4121 

3 265 4% § '¢ 

3; 2658 41 ! Copy the remainder of the signal argument List, omitting the 

3 05 re : PC and PSL unless we converted the signal condition. 

: vee 4136 COPY_LIMIT = .SIGNAL_ARGS CCHFSL_SIG_ARGS); 

: oss rt : IF ( NOT .COND_VAL_CHANGE) THEN COPY_LIMIT = .COPY_LIMIT = 2; 

3; 2665 ot ? i WHILE (.GETTER LEQ .COPY_LIMIT) DO 

3 $6? 4) 4 4 NEW VECTOR C.PUTTER*ZUPVAL, 0, 2BPVAL, 0] = .SIGNAL_ARGS C.GETTER*%UPVAL, 0, %BPVAL. 0); 
3; 2668 41 4 GETTER = .GETTER + 1; 

: 2669 4134 4 PUTTER = .PUTTER + 1; 

; 2670 4135 END; 

3; 2671 41 $ 

3 267 41 '¢ : = ; : 

; 267 4138 ! Set the severity code of the condition which we will signal depending 

3 2674 4139 ! on the system hand! tng of that signal. However, if this is not an 

3 $7? $139 1/0 error from a terminal, don't restart. 

: 67 hry | RESTART_IO_FLAG = 0; 

3 rt 4144 CASE (.ERR_SYSTEM C.COND_VAL CSTS$V_CODEJ]) FROM K_SYS_CONT TO K_SYS_RESTART OF 
3; 2680 4145 SET 
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CK_SYS_CONT) : 
i BEGIN 


! If the severity is INFO, don't promote it to WARNING. 


IF (.COND_VAL CSTSS$V_SEVERITY] NEQ STSS$K_INFO) ! 
COND_VAL CSTS$V_SEVERITY] = STSS$X_WARNING; 
END; 


CK_SYS_EXIT] : 
iS BEGIN 


; If the severity is INFO, don't promote it to SEVERE. 


if (.CONDVAL CSTSSV_SEVERITY] NEQ STSSK_INFO) ! 
COND_VAL CSTSSV_SEVERITY] = STSSK_SEVERE; 
END; 
CK_SYS_RESTART] : 
BEGIN 


IF (LIBSMATCH_COND ((SIGNAL_ARGS CCHFSL_SIG_NAME] + (2*ZUPVAL)), %REF (BASS$_ON_CHAFIL))) 
a BEGIN 
i Because the error code is followed by BAS$_ON_CHAFIL the signal must 
! have been from BASSS$SIGNAL_IO, so this must be an 1/0 error. 
If the 1/0 is to a terminal, the 1/0 statement can be restarted. 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK (,BYTE); 


CCB = .OTS$$A_CUR_LUB; 


IF (OTSSSTERM_I0 () OR 
-CCB CLUBSV_ANSIJ) 


NRESTART_10_FLAG = 1; 
END; 
IF (.RESTART_IO_FLAG) 
COND_VAL CSTSSV_SEVERITY] = STSSK_WARNING 
‘on COND_VAL CSTSS$V_SEVERITY] = STSSK_SEVERE; 


END; 
TES; 


BASSE RROR fbetoye pate “Waal unakaets 
: 388 


0303 ; NEW VECTOR Ci*ZUPVAL, 0, %BPVAL, 0] = .COND_VAL; 
4204 ! <BLF /PAGE>~ 
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' 
' Now call LIBSSIGNAL with the argument List we have built. It will 
! invoke this routine recursively for each active frame in the 

! user's BASIC program. Intermediate levels in other songeeges will 
! be skipped over (provided that the other handlers do not intercept 
' BASIC error codes--if they do, the pregency know what they are 
i doing). The signal argument [i r 

terms. 


st includes a traceback in the user's 


IF ((.ERR_SYSTEM C.COND_VAL CSTS$V_CODEJ] EQL K_SYS_EXIT) g 
AND (.SYSTEM_ERROR) ; 
—— (.COND_VAL CSTS$V_SEVERITY] NEQ STS$K_INFO)) 


ao (.NEW_ VECTOR, LIBSSTOP) 
CALLG (.NEW_ VECTOR, LIBSSIGNAL); 


' 
! If we get here the condition is being continued. 

! Either system handling is not being called for, or the system handling 
is not ‘EXIT’. 


LIBSFREE_ VM (ZREF (.LEN_VECTOR®ZUPVAL), NEW VECTOR); 
LEN_VECTOR = 0; 


'¢ 

! If this error is restartable (as determined above) and we are at the 

' top level (that is, the level at which the 1/0 statement was executed) 
; and no unwind is called for (that is, the user has not executed an 
' 
' 


' error handler, since all error handlers end with a RESUME, which 
' causes an unwind) then restart the 1/0 statement. 


IF (.TOP_LEVEL) 
THEN 
BEGIN 
I gf,‘ RESTART _10_/LAG) AND (.UNWIND_COUNT EQL 0)) 
4 BEGIN 
Unwind back to the beginning of the caller's 1/0 statement. 
This cannot be done directly, because we don't know where the 
beginning of the 1/0 statement is, so we call BASSSRESTART_10 
which puts the 1/0 system back to the way it was when the I/0 
List started, and then restarts the [1/0 list. The call is done 
through RESTART_IO to get SP restored properly. 
SYSSUNWIND (MECHANISM_ARGS CCHFSL_MCH_DEPT«], RESTART_IO); 
'¢ 
: Since we hav? taken care of this error, clear the error flag. 


BASSL_ERRFLG = 0; 
END 


END; 


pas RROR 
739 
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ROR 2 et ee 
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! of user does not handle the error 


'¢ 
! If either this level or a deeper level has requested that the top level 
do an unwind, and if this is the top level, do the unwind. . 


fan ee AND (.UNWIND_COUNT NEQ 0)) 


BEGIN 
SYSSUNWIND (UNWIND COUNT, RESTART); 
UNWIND_COUNT = 0; 


'¢ 


i Set GONE BACK and SYSTEM_ERROR (own cells) for the previous level 


of BASSHANDLER. 


GONE _BACK = (IF (.TOP_LEVEL) THEN O ELSE 1); 
IF (.TOP_LEVEL) THEN SYSTEM_ERROR = 0; 


RETURN (SS$_CONTINUE); 
END; 
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4C AE 


04 
00000000° 


OFFC 00000 
AS AE YE 00002 
54 AE 7C 00006 
OS1D CF 43 00009 
5D 00 0000 
04 AC 00 0001 
65 00 OO 
50 if 0018 
05 ; B35 18 
6540 7? 0001D 
08 AC 00 000 $ 
A2 00 000 
1 a 3a 
5H 38 
: pe B88 
a HBR a 
2 Fo 0044 
004 
§ 4 0005 
01 1 0005 
04A4 F 3¢€ 0005 
4C AE 9F 00058 
0484 8F ac BRE 
4C AE 9F 000 
048C 8 8F 3C 00067 


! of BASSSHANDLER 


- ENTRY SASSSIMMOLER. Save R2,R3,R4,R5,R6,R7,R8B,RI,~; 


10,R11 
MOVAB Ratan) SP 
CLRQ NEW_VECTOR 
MOVAL 82$7 (FP) 
MOVL FP, FRAME 
MOVL  §SIGNAL_ARGS, R5 
MOVL (RS), RO 
CMPL =e RO, #1 
BLEG 18 
CVTLW (RS)CROJ, 4(FRAME) 
MOVL § MECHANISM_ARGS, R2 
MOVL  4(R2), FMP 
BLBC GONE BACK, 2$ 
CLRL =‘ TOP_CEVEL 
BRB 3$ 
MOVL #1, TOP_LEVEL 
MOVL #1. GONE BAC 
MOVL  4(RS), COND 
CMP2V 
BNEQ 
CLAL COND VAL _CHANGE 
BRW 4$ 
MOVZ2WL #1188, 76(SP) 
PUSH 16 SP) 
MOVZ2WL #1204, 76(SP) 
PUSHAB 76(SP5 
MOVZWL #1212, 76(SP) 
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fore 1fo3eor 1984 17:50:58 YOAsRT°SRCSeASERROR.OS9;1 (22) 
HAB 76(SP) : 
| 4C oA 000000006 eF 00 13 Rov ASTRE. STRTOOLON, 76(SP) : 3633 
ee ee) ee ee j 8 
| 4C OE 000000006 af 9 0 4 MOVE #OTS$.10_CONCLO, 76(SP) F 3631 
4C OE 000000806 af : 99 F MOVE #STRS DIVBY_ZER, 76(SP) ; 3630 
4C AE 000000096 ar 009A MOVE #STRSINSVIRMEM, 76(SP) 3 3629 
4C AE O6At oF C O0Ks MOV ZL #1196, 76(SP) ; 3628 
4C AE 0686 SF ¢ OOAE mOVZWL #1108, 76(SP) i 3627 
eg BREE file Mitt bon 
4C AE 000000006 oF pO OOBE MOVE #MTHS UNDEXP, 76(SP) : 3625. 
4C AE 000000006 ar pO a90c9 MOVE #MTHS SIGLOSMAT, 76(SP) ; 3624 
“a 8) Ebi | Ree fia, nan jaa 
4C AE oust ar 3¢ 99000 MOVZWL #1164 76(SP) : 3622 
4C AE 048s oF 3¢ OO0E6 MOVZWL #1136. 76(SP) ; 3621, 
4c AE 0494 af 3¢ Oo0eF MOV ZL #172. 76(SP) ; 3620 
4C AE 900000066 SF 0 90088 MOVL #MTHS -FLOOVEMAT, 76(SP) : 3619 
4C AE 000000006 er 0 00103 MOVE #MTHS_LOGZERNEG, 76(SP) ; 3618 
4C AE 000000006 aF pO 00106 MOVE #MTHS SQUROONEG. 76(SP) ; 3617 
as 4) ae a oe ja 
14 seinnicininn 00 50 CF bo128 CASEL RO, #0. rt, : | 
006¢ 0034 O0eE 008A 01 7 S$: WORD -5$,- : 
a eit : 
OO7E 003A 0078 0072 013 15$-5$,- : 
006C¢ 003A 008F 0084 O17 $5-55.- ; 
15$-5$,- : 
tt 3 
15$-5$,- 3 
15$-5$.- ; 
11$-5$,- 3 
12$-5$,- 3 
199-236" 3 
$232 38.° : 
33238, : 
19$-5$,- 3 
at Sl ‘ 
$-5$,- ; 
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CLRL 
BR 
MOVZBL 
BR 
MOVZBL 
BR 
MOVZBL 


3 ya AX=-11 Oi hog -32 v4.0 
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15$-5$,- 

218-58 

' ND _VAL_ CHANGE 

#BASSKIMASQUROO, =(SP) 
ASSK_ILLARGLOG, -(SP) 
ASSK_DIVBY_ZER, =(SP) 

#BASSK_INTERR, -(SP) 

#BASSK_MEMMANVIO, =(SP) 

R 

i, LIBSFIXUP_FLT 

FIXUP RESULT ,° 158 

TOP LEVEL, 1 

14$ 

#1, R 

R1. GONE _BACK 

#BASSK_FLOPOIERR, 

WBASSK_SUBOUTRAN, 

WBASSK_MAXMEMEXC, 


#BAS$K_ILLBYTCOU, 
22$ 


-(SP) 
-(SP) 
-(SP) 
-(SP) 


FMP 

#1, BASSSUNWIND 

ian STRTOOLON, -(SP) 
ASS$K tbh tet _ 

AS AsSeco VAL 

» COND_ VAL 

> COND-VAL_C 

Ay #12, COND CYALSS, #BAS$K_FAC_NO 


SySTEn.. ERROR, 25$ 
#3, COND_VAL, #3 


zune) 
Ag #12, COND_VAL, -(SP) 
268 


2zDz 
“~. we 


BAS$SUSER~HAND 
a ; USER RESULT 


yi R_RESOLT 


7$ 
USER_RESULT, #2 
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BASRTL. SRC JBASERROR.B32; 1 

#1 SYSTEM_ERROR 

TOP _Ley ; 9$ 

BAS$SPUR_I0_ERR 

(R35, LEN VECTOR 
5f Mh, y 


WAN 

peje iolelelololo® 5 

PAAAHAPRAARHV BD 
xs. s&s 8s &©& & & tH 
eeoeveouene 


LEN_VECTOR 
#3, LEN_VECTOR 
35§ 

LEN_VECTOR 
COND VAL_CHANGE, 36$ 
ag CEN_VECTOR 

37$ 

R3, #3 

37$ 

LEN_VECTOR 
EN_VECTOR. #250 


NEW_VECTOR 
HF LEN_VECTOR, 80(SP) 
80(SP) 


#3, LEN VECTOR, @NEW_VECTOR 
#1. PUTTER 

#1. GETTER 

COND_VAL_CHANGE, 40$ 
COND-VAL; @NEW_VECTORCPUTTER] 


U 
aNEW VECTORCPUTTER] 

#4086, -(SP) 

#1, BASSSCOND_VAL 

RO, @NEW_VECTORCPUTTER) 

he @NEW_VECTORCPUTTER] 
~4(R5)CR3J, @NEW_VECTORCPUTTER) 
(R5)CR3J, @NEW_VECTORCPUTTER) 
PUTTER 


47$ 
SCAN_DONE 
SCAN"DONE, 47$ 
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| BASSERROR 16-Sep-1984 00:23:13 AX-11 Bliss-32 V4.0-74 Page 76 
hea aoe 1 00:82:13 YaASRTL eRe IBASENRON 03551 9° 23) 
| 
59 6542 DO 00201 MOVL (RS)CGETTER], TEMP_COND_VAL : 3937 
000000006 BF 59 0c 4 FD 0 D5 CMPZ2V #16, ite TEMP_COND_VAL> #BASSK_FAC_NO : 3939 
4 D BNEQ 46$ : 
3 06 O2E INCL GETTER + 3944 
54 BE4B DO 002 MOVL § TEMP _COND_VAL, @NEW_VECTORCPUTTER] + 3945 
5 8 O2E INCL hd : 3946 
50 58 0 0269 ASHL #2, PUTTER, RO + 3956 
51 FF AS 9E OOZED MOVAB =1(R3), RI : 3951 
51 52 D1 O02F1 CMPL GETTER, R1 : 
2 i3 O2F4 BEQL  44$ : 
58 6542 DO 002F6 MOVL (RS)CGETTERJ, NUM_FAO_ARGS + 3954 
5 D6 00 FA INCL. GETTER : 3955 
50 54 Ar CO OOOFC ADDL2 NEW_VECTOR, RO + 3956 
60 58 DO 00 00 MOVL § NUM“FAO_ARGS, (RO) : 
5B D6 0030 INCL PUTTER : 3957 
50 D4 00305 CLRL COUNTER : 3959 
0A 11 00307 BRB 43$ : 
54 BE4B 6542 DO 00309 42$: MOVL (RS)CGETTER], @NEW_VEZTORCPUTTER] + 392 
52 D6 0030F INCL GETTER : 339 
58 Dg 00311 INCL PUTTER + 3964 
F2 50 58 F3 00313 438: AOBLEQ NUM_FAO_ARGS, COUNTER, 42$ : 3959 
08 11 00317 BRB 45$ : 3951 
50 54 AE CO 00319 44$:  ADDL2 NEW_VECTOR, RO : 3975 
60 D4 0031D CLRL oy : | 
5B D6 0031F INCL PUTTER : 3976. 
51 52 D1 00321 458: CMPL GETTER, R1 : 3983. 
Ad 12 00326 BNEQ  41$ : 
57 01 bo duses 46$:  MOVL #1, SCAN_DONE : 
AS 11 00329 BRB 41$ : 3935 
07 01 ES Ad 8F 00328 47S: CASEB <-27(FMP), #1, #7 : 3996 
0056 0035 002€ 0027 00330 48s: WORD 5¢$-488.- : 
009F 0068 0064 0050 00338 53$-48$,- ; 
54$-48$,- : 
56$-48$,- : 
57$-48$,- 3 
58$-48$,- : 
59$-48$.- ; 
62$-48$ : 
04 SA £9 00340 49S BLBC = TOP_LEVEL, 50$ + 4117 
50 D4 00343 CLRL = RO ; 
03 11 00345 BRB 51$ ; 
50 01 DO 00347 50$:  MOVL #1, RO ; 
00000000" EF 50 DO 0034A 51$:  MOVL RO. GONE BACK F 
50 0918 BF 3C 00591 MOVZ2WL #2328, RO + 4118 
4 00356 RET ; 
7E OFF9 BF 3¢ 00397 52$ MOVZWL #4089, -(SP) + 4001 
0c 11 0035c BRB 55$ : 
7E OFFA 8F 3C 00356 53$ MOVZWL #4090, -(SP) > 4014 
05 11 0036 BRB 55$ ; 
7E OFFB BF «3C 99 65 548: MOVZWL #4091, -(SP) + 4027 
F82F OCF 01 FB 0036A 55$: CALLS #1, BASSSCOND_VAL F 
54 BE4B 50 DO 0036F MOVL RO, @NEW_VECTORCPUTTER) ; 
5B 6 99 74 INCL E ; 4029 
54 BE4B 02 DO 00376 MOVL #2, @NEW_VECTORCPUTTER] > 4030 
5B D6 00378 INCL PUTTER ; 4031 
54 DD 0037D PUSHL FMP : 4032 
F89A CF 01 FB 0037F CALLS #1, BASSSLINE ; 


e a - — — ——— 


13 
BASSERROR 18-Se -1984 00:23:13 AX=11 Bliss-32 V4.0-74 Page 77 
1-076 14-Sep-19 4 99:82:48 EBASRTL.SRCIBASERROR-B3 31 9°22) 
42 11 00 BRB 61$ : 
| 7E OFFC af f 0 6 568: MOV ZWL #4092, =(SP) : 4040 
| 7E OFFD & 3 0 80 578: MOVZWL #4093, -(SP) ; 4055 
b Py 
7E OFFE f 3¢ 9 34 588: MOVZL #4094, =(SP) : 4070 
| 7E =—sOF FF = Fs 3C :00398 598: — MOVZWL #4095, (SP) > 4085 
CF 1 FB 00 Ap 60$:  cALLS #1, BASSSCOND VAL F 
54 BE4B 0 DO OO3A MOVL RO, @NEW_VECTORCPUTTER] 3 
38 D6 OO3AA INCL ; 4087 
54 BE4B Q D0 99 AC MOVL #3, @NEW_VECTORCPUTTERI ; 408 
B D6 00381 INCL PUTTER > 408 
54 0D 00383 PUSHL FMP : 4090 
F864 CF 01 FB 0038 CALLS #1, BASSSLINE ; 
54 BE4B 50 DO 003BA MOVL RO, @NEW_VECTORCPUTTER : 
5B 06 0038F INCL PUTTER > 4091 
54 DD 003C1 PUSHL FMP : 4092 
F866 01 FB 003C3 CALLS #1, BASSSFUNCTION : 
54 BE4B 50 DO 003CB 61$:  MOVL RO, @NEW_VECTORCPUTTER : 
16 11 003CD BRB 6 > 4093 
7E OFF? 8F 3C OO3CF 62$: MOVZWL #4087, -(SP) : 4100 
F7C5 ~—sCF 01 FB 00304 CALLS #1, BASSSCOND_VAL ; 
54 BE4B 50 00 00309 MOVL RO, @NEW_VECTORCPUTTER] : 
5B 06 003DE INCL  PUTTE > 4102 
54 BE4B 01 DO 003E0 “OVL #1, @NEW_VECTORCPUTTER] > 4103 
5B D6 O03ES 63$:  c»"L PUTTER > 4104 
54 DD 0037 PUsHL FMP > 4105 
FR6E CF 01 FB 003E9 CALLS #1, BASSSMODULE 3 
54 BE4B 50 00 OO3EE MOVL RO, @NEW_VECTORCPUTTERJ : 
5B D6 003F INCL PUTTER > 4106 
50 53 00 0035 MOVL R3, COPY_LIMI > 4126 
03 56 £8 003F8 BLBS_  COND_VAL“CHANGE, 64$ > 4128 
50 02 C2 003FB SUBL2 #2, COPY"LIMI 3 
50 52 D1 OOSFE 64%:  CMPL GETTER, COPY_LIMIT > 4130 
0¢ 14 00401 BGTR 65$ ; 
54 BE4B 6542 00 00403 MOVL (R5)CGETTER], @NEW_VECTORCPUTTER) : 4132 
52 06 00409 INCL GETTER > 4133 
5B 06 00408 INCL PUTTER > 4134 
EF 11 00400 BRB 64$ > 4130 
3 D4 OO4OF 65$: = CLRL RESTART _10 FLAG > 4142 
50 50 AE oc 03 A 00411 EXTZV #3, #12, COND_VAL, RO > 4144 
02 01 F6SA CF40 BF 00417 CASEB ERR_SYSTEMCROT, ai, : 
001A 0010 0006 O041E 66%:  .WORD 67$7-66$,- ; 
68$-66$,- ; 
69$-66$ ; 
03 50 AE 03 00 FD 00424 67$:  CMPZV #0, #3, COND_VAL, #3 > 4153 
4C 13 0042A BEQL «= 74$ ; 
3E 11 0042C BRB 72$ > 4155 
03 50 AE 03 0 Fe 042E 68$: CMPZV #0, #3, COND_VAL, #3 > 4165 
42 13 004 BEQL «= 74$ ; 
3A 11 004 BRB 73$ > 4167 
4C AE 000000006 8F b0 0438 69$: MOVL #BASS$_ON_CHAFIL, 76(SP) > 4174 
4C AE F 0449 PUSHAB 76(SPT : 
OC AS 9F 0044 PUSHAB 12(R5) ; 
000000006 00 08 FB 00446 CALLS #2, L IBSMATCH_COND ; 
19 E9 00440 BLBC =—_-«aRO, 718 ; 
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13 
Sep-1984 : 
att on:g 


3 
4 


BASRTL.SRC JBASERROR .B32;1 


TS$S$A_CUR 
’ : OTSSSTERM fo” 


#4. -95(CCB), 71$ 

#1. RESTART [0 FLA 
RESTART 10_FLAG, 73$ 
if CONB_VAL 


:13 AX-11 Bliss-32 V4.0-74 
af t ffaas 4 
0 


#3, COND_VAL 
NEW_VECTOR. RO 
5 fa WAL, BORO) RO 
Fak. SYSfENLROI, #2 


SYSTEM_ERROR, 75$ 
#0, #3, COND.VAL, #3 


@NEW_VECTOR, LIBSSTOP 
@NEW_VECTOR, LIBSSIGNAL 
New. ECT 

#2, LEN_VECTOR, 80(SP) 
#2, LIBSFREE_VM 
LEN_VECTOR 

TOP-LEVEL, 79$ 

RESTART 10 FLAG, 77S 
UNWIND_ COUNT 

77$ 

RESTART_IO 

#8, MECRANISM_ARGS, -(SP) 
#2, SYSSUNWIND 

BASSL_E 
TOP_LEVEL, 79$ 
UNWIND_ COUNT 
78$ 

RESTART 


NWIND COUNT 
TOP_LEVEL, 79$ 


vw 
ow 
° 
~ 
~m 


Be Sede SA Ve 


Pee Se Se Se Se ee Se Ge Ge Se Se Be Fe Ss Se Se Se Se Se Se Se Se Se Be Ge Ge Se Be Se Se Se Se Se Se Ss Be Se Fe Be Se Se Se Se Se Se Se Se Se Se Se Se Be Be Se Se Se 


SP HHLE HS 
NR ee te 


4215 


ASSERROR 
1076 


F725 CF 


; Routine Size: 1352 bytes, Routine Base: 


; 2822 4286 1 


“ee 00:3 
03 =#=FB Oot CALLS 
04 0054 RET 


_BASSCODE + 068A 


3:13 AX-11 Bliss-32 V4.0-7 
4:56 BASRTL.SRC JBASERROR. 83 31 


#3, HANDLER_HANDLER 


BASSERROR 

1-074 

3; 2824 4287 
3 5 4288 
: $ 4289 
3; 28 4290 
3 8 4291 
3 9 4 35 
: 4 429 

: 1 4296 
3; 28 ¢ 4295 
3; 28 429 

3; 28 429 

3; 2855 4298 
: $8 2800 
3 He 4301 
3; 2839 4 8 
3; 2840 430 

3; 2841 4304 
3 ecg 4305 
3; 284 4306 
3 2844 4307 
3; 2845 4308 
3 eee 4309 
3: 284 $319 
3; 2848 4311 
3 2849 $3ig 
; 2850 431 

3; 2851 4314 
3 $36 4315 
3; 285 4316 
3 2854 4317 
3; 2855 4318 
3 te 4319 
3; 2857 4320 
3; 2858 4321 
3; 2859 $355 
: 2860 432 

; 2861 4324 


F 13 


1o-300- 138% 90: 3:13 rete Bliss-32 V4.0-74 


14-Sep-19 


4:56 BASRTL.SRC JBASERROR .B32;1 


GLOBAL ROUTINE BASSERL = ! error Line number 


lee 


i FUNCTIONAL DESCRIPTION: 
f there is no error in progress, return t 
the last error, or 0. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
BASSL_ERL 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The Line number, as a 32-bit binary value. 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


BEGIN 
RETURN (.BASSL_ERL); 
END; 


wm , 


0000 00 
50 00000000° EF DO 00 
04 00 


ooo 


; Routine Size: 10 bytes, Routine Base: _BASSCODE + OBD2 


; 2862 4325 


1 


Return the Line number on which the current error happened. 


he Line number of 


of BASSERL 


-ENTRY BASSERL, Save nothing 
Ht BASSL_ERL, RO 


Page 9 


---re _—— — —_———_$_ —_— 


| 
| 


13 
— 18-Sep-1984 90:83:13 AX-11 Oh legate V4.0-74 


14-Sep-19 BASRTL. BASERROR.B32;1 
: : § } GLOBAL ROUTINE BASSERR = ' error number 
4 $ 1 tee 
4 1 ! FUNCTIONAL DESCRIPTION: 
so8 4330 1! 
4331 1! Return the number of the current error. 
0 4 § 1! If there is no error in progress, return the number 
a! : Z ; } of the last error, or 0. 
ers 4 5 i FORMAL PARAMETERS: 
NESSES | ating 
87 4 39 ; IMPLICIT INPUTS: 
879 4 4] BASSL_ERR 
881 e348 ; IMPLICIT OUTPUTS: 
moo i the 
2885 4347 ROUTINE VALUE: 
st $383 : The error number, as a 32-bit binary value. 
889 4351 1 | COMPLETION CODES: 
890 $326 1! 
coo tet ere 
$898 4355 1! SIDE EFFECTS: - 
894 4356 1! 
895 4337 % 7 NONE 
2896 4358 1! 
2897 4359 1 !-- 2 
$599 t3e) 2 sBEGIN *. 
2900 $08 2 RETURN (.BAS$L_ERR); 
2901 43635 1 END; . ! of BASSERR 


0000 00000 ENTRY BASSERR, Save nothing 
50 00000000" EF 4 sit MOVL BASSL_ERR, RO 


; Routine Size: 10 bytes, Routine Base: _BASSCODE + OBDC 


2902 4364 1 


Pa 81 
9° 28) 


re 1ec$ep=19ee 11:84:56 EGASRTLeSRESaASERMOR-839;1 ——#8° 085 


74 
>: 2904 4365 1 GLOBAL ROUTINE BASSERN ( ' error module name 
3; 2905 4 08 1 DESCRIP ' where to write the name 
3 o08 4367 1 d= 
; 290 4 o8 1 
; 2908 4 § 1 tee 
3 ay : 4 : FUNCTIONAL DESCRIPTION: 
: 2911 4 ie 1: Return the name of the module in which the current error 
: aig 4373 1 | happened. If there is no error in progress, return 
3 a 2 ie : the module name for the last error, or a zero-length string. 
3 Bi? : ! FORMAL PARAMETERS: 
: 319 4378 1: DESCRIP.wt.dx A descriptor into which to write the name of 
: 18 4379 1: the module. 
3; 2919 4380 1! 
3: 2920 4381 1 ' IMPLICIT INPUTS: 
: 2921 4382 1! 
3; 29 § 4383 1! BASST_ERN 
: 29 4384 1: 
: 2924 rir #4 1! IMPLICIT OUTPUTS: 
3; 2925 4 56 1 i 
3: 2926 4387 1! NONE 
3: 2927 4388 1! 
3: 2928 4389 1 | COMPLETION CODES: 
3 94 4390 1! 
3; 29350 4391 1: Same as for STRSCOPY 
: 2931 4392 1! 
3 236 4393 1! SIDE EFFECTS: 
3 293 4394 1! / 
3: 2934 4395 1: Calls STRSCOPY; if it fails, this routine never returns. 
3 $3e2 4396 1! 
3; 2936 4397 1 ie- 
3; 2937 4398 1 
3; 2938 4399 BEGIN 
3; 2939 4400 
: 2940 4401 LOCAL 
3: 2941 440 COPY_STATUS; 
3 4 440 
3 294 4404 COPY_STATUS = STRSCOPY_DX (.DESCRIP, BASST_ERN); 
3: 2944 4405 RETURN (COPY_STATUS); 
3 2945 4406 1 END; ' of BASSERN 
0000 00000 -ENTRY BASSERN, Save nothing : 4365 
5E 04 C2 Bo nng SUBL2 #4, SP 5 
00000000" EF 9F 0000 PUSHAB BASST_ERN > 4404 
04 AC ODD 00008 PUSHL ° SCRIP 3 
000000006 00 9¢ fe 00 CALLS « STRSCOPY_DX 3 
3 001 MOVL COPY_STATUS 3 
6€ 9E 00018 MOVAB RO. _STATUS, RO > 4405. 
04 00018 RET ; 4406 


; Routine Size: 28 bytes, Routine Base: _BASSCODE + OBE6 


eayeaee 1b-50 “Sep- 138% 90: $3: 3 AX-11 Bliss-32 V4.0-7 


s 4 P 3 
-Sep- BASRTL.SRCJBASERROR. “B33; 31 age 283 


; 2946 4407 1 


BASSERROR 
1-076 


WN" OOONOAUS WO O0O@ 


FEESESRARRRRARADE 


Sze 


—> es bt 


Ge 


Sak tl el ee 
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PIM ININIPINIMINININIMINIIN III II sh hk 


GLOBAL ROUTINE BASSERT ( 
Phan” 


'e¢ 


FUNCTIONAL DESCRIPTION: 


i FORMAL PARAMETERS: 
the message. 


i IMPLICIT INPUTS: 


i IMPLICIT OUTPUTS: 

i NONE 

i COMPLETION CODES: 

Same as STRSCONCAT 
i SIDE EFFECTS: 


Calls several system functions. 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
i 
' 
' 
' 
' 
' 
' 
' 
' 
' 
! 
‘ 
never returns. 
' 


BEGIN 
LOCAL 


LOCAL_BESCRIP : BLOCK (8, BYTE) 
Q DESC : BLOCK (8, BYTE): 

Q-BUF : VECTOR [1 BYTE : 
LOCAL_BUF : VECTOR (256, BYTE), 
DUMMY: 

'e 

Set up the local descriptor. 

" LOCAL_DESCRIP [DSC$W_LENGTH) = 256: 
LOCAL“DESCRIP DSC$B-DTYPE] = DSC$K 
LOCAL"DESCRIP CDSC$B"CLASS) = DSC$K 
LOCAL“DESCRIP CDSCSA-POINTER] = LOC 


13 
18-Sep-1984 00:23:13 YAX=11 BLiss-32 v4.0¢74 
VenSep-1986 11:84:56 EBASRTL SRESBASERROR 659; 1 


' error text 
! where to put text 
' error number 


Return the text of an error message. If the error number is 
unreasonable, the result is undefined. The first character of 
the message indicates the severity: 2" is a fatal error, 
‘kis a warning, and all other messages start with a space. 


DESCRIP. wt.d A descriptor into which to write the text of 
ERRNO. rl.v The error number for which we want the text. 


The system error message file, SYSSMESSAGE:SYSMSG.EXE 


If any fail, this routine 


Status from STRSCONCAT 

remembers status of SYSS$GETMSG 

message descriptor 

Points to ?, % or space 

Holds the ?, % or space 

Buffer got SYSS$GETMSG 

used to discard last value from SYSS$GETMSG 


13 


| K 
ASSERROR 16-Sep-1984 00:23:13 AX-11 Bliss-32 V4.0-74 Page 85 
#355 1o-ge8-138e 9:82:88 «— HBNsaTe sae ieasennon.035;1 29 26) 
: 3005 4465 ! Get the message text from SYSSMESSAGE :SYSMSG.EXE 
: 007 446 GETMSG_RESULT = SYSSGETMSG (BASSSCOND_VAL (.ERRNO), LOCAL_DESCRIP, LOCAL_DESCRIP, 1, DUMMY); 
; 008 46 IF ( NOT .GETMSG_RESULT) THEN LIBSSTOP (.GETMSG_RESULT); 
3 3011 4471 ‘+ 
: at 447 ! Copy the message text to the user's string, concatenating a ?, % or 
: O13 4673 i space onto its front to indicate the severity of the error. 
; 3015 4475 Q_DESC COSC$W_LENGTH) = 1; 
: O16 447 Q7DESC DSC$B_DTYPE] = DSCSK_DTYPE_T; 
: 301 447 Q"DESC EDSCS$B-CLASS] = DSCSK“CLASS-S: 
; 3018 447 Q"DESC EDSCSA-POINTER] = Q_BO0F (0I: 
; 3019 447 Q-BUF (0) = 
Stooge so 
; 30 g 448 CASE .ERR_SEVERITY C.ERRNO] FROM STSSK_WARNING TO STSSK_SEVERE OF 
; 30 448 SET 
3 3024 4484 
: 3025 4485 CSTS$K_WARNING) : 
: 30 $ 4486 XC°X'; 
; 4487 
; 3028 4488 CSTSSK_SEVERE, STSSK_ERROR] : 
: 0¢9 4489 zc°?'; 
: 3030 4490 
; 3031 4491 CINRANGE, OUTRANGE) : 
3 Os 449 ~~ “a 
3 303 449 TES 
3; 3034 4494 3 
3; 3035 4495 END; 
: 3036 4496 CONCAT_RESULT = STRSCONCAT (.DESCRIP, Q_DESC, LOCAL_DESCRIP); 
> 3037 4497 RETURN” (. CONCAT_RESULT); 
; 3038 4498 END; ! of BASSERT 
0000 00000 -ENTRY BASSERT, Save nothing : 4408 
E FEES CE 3 90002 MOVAB =280(SP ; 
F8 AD O10E0100 8F D 6000 MOVL  #17694976, LOCAL_DESCRIP > 4460. 
FC OAD 08 AE 9E O000F MOVAB LOCAL_BUF, LOCALDESCRIP+4 > 4463 | 
5E DD 0014 PUSHL SP : 4467 
01 DD 00 1 PUSHL #1 : 
F8 AD 9F 0001 PUSHAB LOCAL_DESCRIP ; 
F8 AD OF 0018 PUSHAB LOCAL "DESCRIP : 
08 AC DD OOOIE PUSHL ER : 
F600 CF gi FB 00021 CALLS #1, BASSSCOND_VAL : 
000000006 00 8 OO 058 Cuore aS. sysscetnsc ; 
09 33 4} 00 f LBS § GETMSG_RESULT, 1$ > 4469 
000000006 00 OY FB 00084 CALLS st IBSSTOP. 
08 AD 010€0001 + 00 09 1$: MOVL #17694 $3 Q DESC > 4475 
F4 AD 04 AE 99E 0004 MOVAB Q BUF SC+4 : 4478 
50 F3B2 «CF OSE 0004 MOVAB ERR_SEVERITY, RO > 4482 


ener 
OO0A oore 00a 
50 
50 
50 
04 AE 


000000006 00 


; Routine Size: 127 bytes, Routine Base: 


; 3039 4499 1 


08 £30 
OF 

014 

3 

F 

0 

F8 AD 
FO AD 
04 A 
0 

_BASSCODE + 


8F 


ono oo0o°0-9°-c9 
o £OUO7""OooO-oO-oO 


b-5e Sep-19 
~3ep-1986 
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wns 
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Nm 
wr 


own | Ww 
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COoooooooooo ooo 


oooooooco 
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C02 


Be P9:ezidg | HANSA Obs saze head 285. 


aa #0, #4 


#63, RO 

0, Q_BUF 
LOCAL “DESCRIP 
Q pest 


DESCRIP 
#3, STRSCONCAT 


37 
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: 4480 
: 4096 


; 4498 


m 13 

BASSERROR 16-Sep-1984 00:23:13 AX-11 Bliss-32 V4.0-74 
Rei 12-868 =1 382 99:82:83 EBASRTL-SRe BASERROR .B32;1 
; 3041 $2 O 1 GLOBAL ROUTINE BASSERROR ( ! signal an error 

; nk 4501 1 ERRNO ! error number 

3; 304 $2 ¢ 1 ) : NOVALUE = 

+ 3044 45035 1 

; 3045 4504 1 !+4 

3 Bee $282 1 ! FUNCTIONAL DESCRIPTION: 

> 304 45 $ 13 ; ; 

: 3048 4507 1! Signals an error. This is called from the compiled code when 
; 3049 4508 1! an error condition is detected in line. It can also be called 
; 3050 4509 1! by user code directly. 

; 3051 4510 1! 

; 028 4511 1 ! FORMAL PARAMETERS: 

; 305 $216 1! 

3; 3054 4513 1! ERRNO. rl.v The error number which we want to signal. 

3; 3055 4514 1! 

3; 3056 4515 1 ! IMPLICIT INPUTS: 

>; 3057 4516 1! 

3 $006 4517 1! NONE 

3; 3059 4518 1! 

; 3060 4519 1! IMPLICIT OUTPUTS: 

; 3061 4520 1! 

3 3008 $3$) g NONE 

; 306 45 ¢ 1! 

3; 3064 4525 1 ! ROUTINE VALUE: 

3; 3065 4524 1! 

; 3066 $26? 1! NONE 

; 3067 4526 1! 

: 3068 4527 1 ! COMPLETION CODES: 

; $098 4528 1! 

; 3070 4529 1! NONE 

: 3071 4530 1! 

3; 307 4531 1 ! SIDE EFFECTS: 

3; 307 $236 1! i 

3; 3074 4533 1! May never return to its caller. 

; 3075 4534 1! 

; 3076 4535 1 !-- 

3; 3077 4536 1 

3; 3078 4537 BEGIN 

3; 3079 4538 ! 2 : 

; 3080 4539 ! Don't allow error numbers above 255, since we keep some internal 

; 3081 4540 ! messages up there. 

BR Hg 

: sons 4348 § IF (.ERRNO LEQU 255) THEN BASS$S$SIGNAL (.ERRNO) ELSE BAS$S$STOP (BAS$K_PROLOSSOR); 
; 3086 4545 1 END; ! of BASSERROR 

0000 00000 -ENTRY BASSERROR, Save nothing 
OO0000FF BF 04 ac 01 00002 CMPL RRNO, #255 
09 1A QOO0A BGTRU 
04 AC 0D 0000C PUSHL ERRNO 
F56B SCF 01 FB QOOOF CALLS #1, BASS$SIGNAL 
04 00014 RET 


a 


Page 8) 


paste nnon Hoes mg O0:g3:95  YAKCHY OLeg= 52. ve.0-763 | 


7E 006 of Ga $013 1$: MOVZBL wr PROLOSSOR, =(SP) 
F575 —sCF 1 fe Oote a . BASS$STOP 


; Routine Size: 31 bytes, Routine Base: _BASSCODE + 0(81 


; 3087 4546 1 


p-1984 00:23:13 ret Oi tegen V4.0-74 
p-1984 11:54:56 


-074 - BASRTL.SRC JBASERROR .B32;1 
94 ge GLOBAL ROUTINE BASSSERR_INIT : NOVALUE = ! Initialize error flag 
091 4 'ee 
2? ! FUNCTIONAL DESCRIPTION: 
094 55 Initialize the error status. This is used by the RUN command in case the user 
Boe 22 does a RUN following an error. 
097 55 FORMAL PARAMETERS: 
098 55 
444 2 NONE 
1 z IMPLICIT INPUTS: 
: NONE 
6 IMPLICIT OUTPUTS: 


ALL of the error cells that the user can see. 
ROUTINE VALUE: 

NONE 

COMPLETION CODES: 

NONE 

SIDE EFFECTS: 


After this routine has been called, we are not in an error handler. 
Also, the error stack is empty. 


i eet ee et ee ee te ee ee ee ee te ee te? te te te te te te te ee 


: First, empty the error stack. 
WHILE (.ERROR_STACK [0] NEQA -ERROR_STACK (1]) DO 
BASS$POP_ERR (); 


'¢ 
Then make sure we are not in an error routine. 


BASSL_ERRFLG = 0; 
See to it that all user-visible cells are in their initial states. 


Ly leah tah ab sb sb Ab Ab Ab Ab ab Ab Ab Ab Ab ab Ab ab hh Ab dh Ab ah ah sh ahaa eal sal eal ealealeal eal eal ele leew) 
NOUS WN "OO OCONO EW OOS NOUR UNI ODO UA RO GOO OPA CaO Deo ag 


WOOO O WO OO WW 00000900 09 09 09 SINS SII NIN NN NA OAOAOAO 


BASSA_CH_CUR_LN = 0; 


Be el el ee al ek al el el el al ak el el el el a el ek ek ek ak el Sk ak ak ak ak ak Sek ak ak ak Sa Sek Dak ak et ake Sel ak St Jet od et et et et et et 


1 
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1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
§ BEGIN 
'¢ 


wtoivUtabeababebubebabababchebehabuibi@babwiabaialdbabahacbuababubehabahbahababababahabaubahabababab 


MEW 0 OONOUSWN — OVDONOVEWN $C OONOUSWN—O0OnN 


AWANINNIAINIWI AIAN WINN AAAI AIT NAINA AANA WWI WII 


4598 BASSL~GOING BACK = 0; 
599 SYSTEM_ERROR = 0; 
4600 GONE BACK = 0; 
4601 BASSC_ERL = 0; 
460 BASSL-ERR = 0; 
460 BASST~ERN [DSC$W_LENGTH) = 0; 


| 

| 

| 

Ee ee ae ee mR ee NN ea SINE Cae NE Sen Fe a NL ee NE 
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| 


14 
‘Basse nnon 1$-Sep-1984 00:25:15  yAK-I1 BLig=S2 40-762 | 


; 3146 4604 1 END; ! of BASSSFRR_INIT 


| 0004 


8 4 Paddy eet INIT, Save R2 
35 00000000" EF 9 OVAB ERR TACK, 
A 68 D1 00009 1$: CHP RROR™ “STACK, ERROR_STACK+4 
13 00000 BEQL $ 
0000v CF 00 FB OQO00F CALLS #0, BASSPOP_ERR 
F 11 00014 BRB 
0c A2 7C 00016 28: CLRQ BAS$A_CH_CUR_LN 
F8 A2 7C 00019 CLRQ SYSTEM_ERROR™ 
EO A2 7C O0001C CLRO BASS$L_ERL 
DC A2 04 OOOTF CLRL BASSL_ERR 
D4 A2 B4 00022 CLRW BAS$T_ERN 
04 00025 RET 


; Routine Size: 38 bytes, Routine Base: _BASSCODE + OCA0 


3 3147 4605 1 


o_O OO ee 


| > 14 

BASSERROR 16-Sep-1984 00:23:13 AX-11 Bliss-32 V4.0-74 Pa 2) 
kei 12-8081 882 90: 4:56 EBASRTL-SRe BASERROR .B32;1 9° (29) 

H 133 168 ! GLOBAL ROUTINE BASSPUSH_ERR = ! Push error status 

3 pls 4608 1 !+¢ 

: ! § re et : FUNCTIONAL DESCRIPTION: 

3; 31546 4611 1! Save the error state on the error stack, so a BASIC program can 

; 133 red : be run independent of the error flag. 

; 3157 4614 1 ! CALLING SEQUENCE: 

; 3158 4615 1! 

; 3159 461 1! CALL BASSPUSH_ERR () 

; 3160 4617 1! 

3; 3161 4618 1 ! FORMAL PARAMETERS: 

3 16g 4619 1! 

; 316 4620 1! NONE 

3; 3164 4621 1! 

3; 3165 46 ; 1 ! IMPLICIT INPUTS: 

3: 3166 46 1! 

3; 3167 4624 1! The OWN cells which represent the error status. 

>; 3168 4625 1! 

3; 3169 4626 1 ! IMPLICIT OUTPUTS: 

3; 3170 4627 1! 

3; 3171 4628 1! The error stack 

3 $178 re 494 1! 

; 317 4630 1 ! SIDE EFFECTS: 

3: 3174 4631 1! 

3; 3175 ret 1! Calls LIBSGET_VM to get virtual memory. 

; 3176 4633 1 !-- 

3; 3177 4634 1 

; 3178 4635 2 BEGIN 

3; 3179 4636 § 

; 3180 4637 BUILTIN 

; 3181 4638 2 INSQUE ; 

3 $186 4639 § 

; 318 4640 LOCAL 

3; 3184 4641 2 !+4 

3 1°? re § Declare the pointer to the block to push. 

3; 3187 4644 § PUSH : REF BLOCK CPUSHSK_LENGTH, BYTE] FIELD (PUSH_ITEM); 

: 3188 4645 

3; 3189 4646 + . She 

: 3190 4647 ! If this is the first PUSH, initialize the queue. 

3; 3191 4648 !e 

3 136 4649 

; 319 4650 IF ( NOT .ERROR_STACK_INI) 

3: 31946 4651 THEN 

3 3195 $036 BEGIN 

3; 3196 465 

; 3197 4654 LOCAL 

: 3198 4655 AST_STATUS; 

3; 3199 £628 

3; 3200 465 AST_STATUS = SSETAST (ENBFLG = 0); 

: 3201 4658 

: $08 4659 4 IF ( NOT .ERROR_STACK_INI) 

: $0 teet i THEN EGIN 

; 3205 4662 4 ERROR_STACK (OJ = ERROR_STACK [1] = ERROR_STACK (0); 


cot - — 


14 

| BASSERROR 16-Sep-1984 00:83:13 AX-11 Or iet =-32 v4.0-7 
|| 74 14-Sep-1984 54:56 BASRTL. SRC} BASERROR. b3 31 
3 06 4663 4 ERROR_STACK_INI = 1; 

: 320 4664 END; 

: 3208 4665 

: 9 $66 IF (.AST_STATUS EQL SSS_WASSET) THEN SSETAST (ENBFLG = 1); 
: 11 4668 END; 

3 \§ 4669 

3 321 4670 t+ 

; \3 rhea Get virtual memory to hold the error state. 

; 1g 467 BEGIN 

; 1 4674 

: 3218 4675 LOCAL 

3 4 $6? GET_VM_RESULT; 

; 251 $678 GET_VM_RESULT = LIBSGET_VM (ZREF (PUSHSK_LENGTH), PUSH); 
3 238 ree IF ( NOT .GET_VM_RESULT) THEN BASS$STOP (SASSK_MAXMEMEXC); 
3 355¢ 468 END; 

; 3226 468 '¢ 

; 3227 4684 i FELL in. 

: 3228 4685 ie 

3 $92 4686 eusH CPUSHSL ERRFLG] = BAsst .ER 

: 3230 4687 CHSMO BA s$I _ERN, PUSH PUSHST- "éRND) ; 

; 3231 4688 teusng LERR]"= .BASSL_ERR; 

3 $36 4689 PUSH CPUSHSL_ERL) = .BASSL_ERL; 

3 323 4690 2 PUSH CPUSHSL-HGH_LVLJ = .HIGHEST_LEVEL; 

: 3234 4691 PUSH CPUSHSA_HGH_FMP] = .HIGHEST FMP; 

3 $532 469 PUSH PUSHST “UMU-ENT = .ACCUM_LEVEL 

3 3236 469 PUSH [PUSHSL T] = .UNWIND_COUNT; 

: 3237 4694 $ PUSH CPUSHSL_SYS_ERR] = _ SYSTEM ERROR; 

; 3238 4695 PUSH [PUSH LG . GONE 5A “ 

; 3239 4696 2 PUSH CPUSHSA_CUR_CIN] = 1 BASSAR 

3 3240 4697 2 PUSH CPUSHSL ~GOING BACK] = .BA ASSL GOInG. "BACK; 

; 324, $638 § PUSH CPUSHSA “RESTART = J Basta RESTART; 

4 + 

3 stg 4700 § i Put this item on the error stack. 

3 sse¢ 4701 ie 

3 3245 4708 2 INSQUE (.PUSH, ERROR_STACK); 

: 3246 470 : : 

3 3247 4704 ' Make sure there is no error outstanding. 

3; 3248 4705 te 

: $43 $706 BASSL_ERRFLG = 0; 

3; 3250 47 BASSA_CH_CUR_LN = 0 

: 3251 4708 BASSL~GOING BACK = 0; 

3 $26 4709 : TEM_ERROR = 0; 

: 325 4710 GONE_BACK = 0; 

3; 3254 4711 '¢ 

3; 3255 atte i Successful completion. 

3; 3256 471 ie 

3 3257 4714 2 RETURN (SS$_NORMAL) ; : 

; 3258 4715 1 END; ! of routine BASSPUSH_ERR 


-EXTRN SYSSSETAST 


Page 92 
29° (29) 


——_—__—————“—_—--_------ ————— —__—_-_-—- ——— 


F 1 
| BASSERROR 16-Sep-1984 00:23:13 AX-11 Bliss-32 V4.0-74 
an 1o=88- 1382 00:82:58 EBASRTL SRC IBASERROR .B3 31 
O1FC 000 .ENTRY BASSPUSH_ERR, Save R2,R3,R4,R5,R6,27,R8 
| § 900000006 00 9t a2 MOVAB SYSSSETAST, AB 
0000000 FF 9E 0000 MOV ERROR_STACK_INI, R7 
7 3 C 9019 SUBL2 #8, S 
21 $ E8 0001 BLBS §_- ERROR_STACK_INI, 2$ 
E D4 0016 CLRL 0s = ( SP) 
48 01 Fe 001 CALLS #1, SYSS$SETAST 
OF 67 f 0018 S  ERROR_STACK_INI, 1$ 
1 FB OA? : OO1E MOVAB ERRORSTAC 
FC OA? 51 00 000 MOVL R1, ERROR_STACK+4 
FB OA? 1 D0 99 6 MOVL 1, ERROR-STACK 
67 1 00 0002A MOVL #1, ERROR“STACK_INI 
09 0 D1 900 D 1$ CMPL  AST_STATUS, #9 
05 12 00030 BNEQ 2$ 
01 DD 00032 PUSHL #1 
68 01 FB 00034 CALLS #1, SYSS$SETAST 
04 AE 9F 00037 2$ PUSHAB 
04 AE 40 8F 9A OO03A MOVZBL #64, 4(SP) 
04 AE 9F O003F PUSHAB 4(SP) 
000000006 00 08 FB 00042 CALLS #2, LIBSGET_VM 
9 50 £8 0004 BLBS §GET_VM_RESULT, 3$ 
E 00G 8F 9A 0004C MOVZBL #BASSK-MAXMEMEXC, =(SP) 
F4FQ ss 01 FB 00050 CALLS #1, BASSSSTOP 
56 04 AE DO 00055 3$ MOVL PUSH, R6 
08 A6 DC DO 00059 MOVL.  BASS$L_ERRFLG, 8(R6) 
OC AG CC (A? 08 ¢8 0005 MOVC3 #8, BASST_ERN, 12(R6) 
146 Ab D4 = AZ-—s 7D:(00064 MOVO BASSL_ERR> 20(R6) 
1C A EO A? 7D 00069 MOVQ 4HIGHEST_LEV (R6) 
24 Ab £8 AZ? 7D OO06E mova CUM_LEVEL, $6(R6) 
eC Ab FO A? 7D 0007 MOVQ SYSTEM ERROR, 44(R6) 
4 Ab 04 <A? 7D 00078 MOVQ S$A_CH_CU 2(R6) 
3c AG 0c A? 00 0007D L __ BASSATRESTART, 60(R6) 
FB A? 66 O€ 00082 INSQUE ), ERROR ST 
pc A? D4 00086 CLRL  BASSL_ERRFL 
04 Az 7C 00089 CLRO  BASSA~CH_CUR_LN 
FO A? 7C 0008C CLRQ SYSTEM_ERROR 
50 01 00 0008F MOVL 1, RO 
04 00092 RET 


; Routine Size: 147 bytes, Routine Base: _BASSCODE + OCC6 


; 3259 4716 1 


; 
| 
| 
| 
| 


14 
| BASSERROR IB-5¢ p-19 3:13 AX-11 Bliss-32 V4.0-7 Pa 94 
1-074 14-$ oat 1382 9: §2: 756 BASRTL.SRC BASERROR. 635, 31 9° 30) 
; 6) cig } GLOBAL ROUTINE BASSPOP_ERR = ! Pop error status 
: 326 4719 1 144 

; re) ry! Y : FUNCTIONAL DESCRIPTION: 

; 66 47 : i Restore the error state from the error stack. 

: 68 47 4 ' CALLING SEQUENCE: 

: 20 arog CALL BASSPOP_ERR () 

; 2 47 8 FORMAL PARAMETERS: 

oem dp oe 

; 376 arse { IMPLICIT INPUTS: 

3 3578 t7ee : ; The error stack. 

; 3280 4736 { IMPLICIT OUTPUTS: 

; 3288 4 cr38 ! ; The OWN storage which represents the error state. 

: 284 4740 | SIDE EFFECTS: 

: 3586 rte 1! Calls LIBSFREE_VM to free virtual memory. 

: rs t4 474 1 !e- 

3; 3288 4744 1 

| Be eee 

; 3291 747 2 BUILTIN 

: $36 4748 REMQUE; 

3594 2780 3) ~—sLocaL 

: 3295 4751 3 PUSH : REF BLOCK CPUSHSK_LENGTH, BYTE] FIELD (PUSH_ITEM); 
: 3599 2783 5 16 

; 3595 4754 i Get an item off the error stack. It had better be there. 

Be gh 

; 3309 4757 IF (REMQUE (.ERROR_STACK [0], PUSH)) THEN BASS$S$STOP (BAS$K_PROLOSSOR) ; 
Ba gE. 

: 3304 4760 i Copy the data from the stack into the OWN cells, thus reestablishing 
3 302 $703 i the error environment at the time of the PUSH. 

: 3307 1788 BASSL ERRELG, 2 Act CPUSHSL_ERRFLG); 

; 3308 4764 CHSMOVE ( PUSH pert! ERNT, BASST ERN); 

: 09 4765 BAS S$L_ERR = PUSH SHSC ait : 

$ 10 4766 Hy an = .PUSH PY ttt fie 

3: 3311 767 HIGHEST _LEVEL = .PUSH CPuSHSst HGH LVLI; 

s $15 4768 HIGHEST" FMP = .PUSH PUSHSA_H HGH _FAP ; 

3; 331 4769 ACCUM_LEVEL = .PUSH PUSHS ACC LVLJ; 

3 3314 4770 UNWIND_COUNT = .PUS . N : 

3; 3315 4771 SYSTEM_ERROR = te PUSHSL RYSo ERR]; 

; 3316 4h GONE BACK = -PUSH EPUSHSL GO — BAK); 

: 3317 477 BASSA_CH_CUR_LN = .PUSH CPUSHSA_CUR_LINI; 


H 14 
16-Sep-1984 


2 e-8ep= 198 99:82:88 «— FBASa Te See ieasennos.o3 
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BASRTL.SRCJBASERROR.B32;1 (30) 
: 331 4776 BASSL_GOING_BACK = .PUSH CPUSHSL_GOING_BACK]; 
: 13 472) } BASSA_RESTART = .PUSH Epusn A_RESTARTJ; 
: 1 cr? We are done with the item from error stack, free it. 
3 : 4779 BEGIN 
; 4 4780 
; 5 4781 LOCAL 
; § 478e FREE_VM_RESULT; 
: 8 4786 FREE_VM_RESULT = LIBSFREE_VM (XREF (PUSHSK_LENGTH), PUSH); 
; 386 $786 IF ( NOT .FREE_VM_RESULT) THEN BASSS$STOP (BAS$K_PROLOSSOR); 
3 3330 4788 END; 
3 333 4789 RETURN (SS$_NORMAL); 
; 3334 4790 1 END; ! of routine BASSPOP_ERR 
OOFC 00000 ENTRY BASSPOP_ERR, Save R2,R3,R4,R5,R6,R7 : 4717 
57 00000000" EF 3 00002 MOVAB ERROR STACK, R7 : 
5E 08 C2 00009 SUBL2 #8, F 
04 AE 00 B87 OF 0000C REMQUE @ERROR_STACK, PUSH : 4757 
09 1¢ 00011 vc : 
7E 006 8F 9A 00013 MOVZBL M#BASS$K_PROLOSSOR, -(SP) : 
F49F = CF 01 FB 00017 CALLS #1, BASS$$STOP : 
56 04 AE DO OOOIC 1$ MOVL PUSH, R6 : 4763. 
E46 A? 08 A6 DO 00020 MOVL  8(R65, BASSL_ERRFLG ; 
D4 «A? OC A6 08 28 00025 MOVC3 #8, 12(R6), GASS$T_ERN > 4764 | 
DC =A? 14 AB 7D 00008 MOVQ 20(R6), BASSL_ERR : 4765 | 
E8 A7 1¢ A6 7D 00030 MOVQ gB(R6), HIGHEST LEVEL : 4767 | 
FO A? 24 Ab 7D 00035 mova 6(R6), UM_LEVEL > 4769 | 
F8 AT 3¢ A6 7D O003A MOVQ 44(R6), SYSTEM ERROR > 4771 | 
oc aA? 4 A6 7D 0003F MOVQ 52(R6), BASSA_CH_CUR_LN 3 4273) 
14 A? 3C =6AG- «DO 00044 MOVL 60(R6), BASSA_RESTART : 4775 | 
04 AE 9F 00049 PUSHAB PUSH : 4784 | 
04 AE 40 8F 9A 0004C MOVZBL #64, 4(SP) : 
04 AE 9F 00051 USHAB 4(SP) : 
000000006 00 02 FB 00054 CALLS #2, LIBSFREE_VM : | 
09 5 8 00058 LBS FREE _VM_RESULT, 2$ + 4786 | 
7E 00G 8F 9A $005 MOV7BL #BASSK_PROLOSSOR, -(SP) : 
F454 OCF 1 FB 0006 CALLS #1, BASSS$STOP 3 
50 01 DO 00067 2$: MOVL #1, RO : 4789 
04 0006A RET > 4790 
3; Routine Size: 107 bytes, Routine Base: _BASSCODE + 0059 
3 3335 4791 1 
: 336 4798 1 END 
; 333 4793 1 
3 3338 4794 0 ELUDOM 


jae 
BASSE RROR 


PSECT SUMMARY 


1EoSenct9ne 0:28:15 


BASRTL.SR 


AX-11 Ol iagase V4.0-7 
C 


-0- $8 
BASERROR .B32;1 


: Name Bytes Attributes 

> BASSDATA GB NOVEC, WRT. RD .NOEXE.NOSHR, LCL. REL. CON, PIC. ALIGN(2) 

3; <BASSCODE 3524 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL CON, PIC,ALIGN(2) 

bo eee SYMBOLS eee ee = Pages Processing 

: Percent Mapped Time 

: 0 581 00:01.1 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASERROR/OBJ=0BJ$:BASERROR MSRC$:BASERROR/UPDATE=(ENH$:BASERROR) 
Size: 3012 code + 580 data bytes 
Run Time: 1:35.6 


Elapsed Time: 03:17.0 
Lines/CPU Min: 3009 
Lexemes/CPU-Min: 41958 
peneey Used: 550 pages 
ation Complete 


| 
3 
Library Statistics 
File Total Loaded 4 
; _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 37 
; COMMAND QUALIFIERS 
Compi 


DIGITAL EQUIPMENT CORPORATION 


AH-BT13A-SE 
CONFIDENTIAL AND PROPRIETARY 


VAX/VMS_ V4.0 


02 


